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ABSTRACT 


4 1 petenetearine he EEE CPAGRECHANICAL INTREGRITY 


25 HEEKING THE LINEAR POSITIONER CONTROL AND SPEED 


3. VERIFYING THE INTREGITY OF THE READ/WRITE LOGIC 
4. PROVIDING A TIMER FOR THE SEEK FUNCTION. 


THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RK11 
LOGIC TESTS. 
REQUIREMENTS 
EQUIPMENT 
A. BOP WITH CONSOLE TELETYPE. 

- 8K OF MEMORY 

, 11 CONTROLLER 
D.. RKOS ORIVE/S F ANS J TYPE ORIVES MAY BE MIXED 
E. DISK PLATTER - NEEL NOT BE FORMATTED. 
PRELIMINARY PROGRAMS 


RK1L LOGIC TESTS-I_ (MAINDEC~11-D2RKJ) 
RKi1 LOGIC TESTS-II (MAINDEC-11-DZRKK? 


EXECUTION TIME 


pee FREE FIRST PASS on POP11/20 WITH Cre oy tORY 
TAKES ah peak he MINUTES (WITHOUT THE SEEK 


LESS FOR FASTER SOTTO MERORIES "rede. 


STARTING ADDRESS 
aa FOR ANY NORMAL MODE OF OPERATION. ALL SWITCHESS 


BIR TOR FUNCTION SELECTING PROGRAM (CONVERSPTIONAL 
PROGRAM CONTROL MODES & OPERATOR ACTION 


PAPER TAPE LOADING 
RKOP OUMP MODE 
RKDP CHAIN MODE 
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4.1 
4.1.1 


4.1.2 


4.1.3 
4.1.4 


4.1.5 


4.2 
4.2.1 
4.2.2 


4.2.3 


\e 


PAPER TAPE LOADING 


LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
PSR ABSOLUTE HiPes rs 


MAKE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH hae AND ake i Ruse HIRT Enea” M. 
CHECK THAT ’WRT PROT’ LIGHT ON THESE DRIVES IS OFF. 
PUT DRIVES THAT ARE NOT TO BE TESTED ON ’LOAD’. 

LOAD ADDRESS 200 

SET SWITCHES IF DESIRED (SEE SEC 6.0) 

PRESS START. 

THE PROGRAM IDENTIFIES ITSELF 

MAINDEC-11-DZ2RKL-C 

THEN. IT PROCEEDS 10 FIND WHICH DRIVES ARE _ PRESENT 
AND PRINTS OUT THE DRIVES FOUND. IF AN RK-OSF 

IS DETECTED, AN F IS APPENDED TO THE DRIVE NUMBER: 
DRIVES PRESENT 

1 


BETER TYPING OUT THE ORIVE R THAT IS GOING TO 
BE TESTED, EXECUTION OF THE TESTS START. 


AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED ON THE NEXT DRIVE. IF PRESENT. 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED. 


AT THE END OF A PASS THE FOLLOWING IS TYPED OUT: 


END PASS X Well, 8 Bates 
CONTROL 1S TRANSFERRED BACK T0_THE BEGINNING OF THE 
PROGRAM AND. RE-EXECUTION BEGINS. 

RKDP DUMP MODE 


THE PROGRAM IS LOADED BY THE RKDOP MONITOR. 
se SELECT ANY SWITCHES YOU WANT AND PRESS 


THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 


. 
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15 4 
3 
ig REPLACE _DRO RKDP-PAK BY OTHER, TYPE CR WHEN DONE 
236 th My ONSE Rp Or Bore os ace THE RKDP CN DRIVE 
1 IF YOU WANT DRIVE 08 TESTED. THEM TYPE IN 
CS USSE AEE Re obs EF ott Sua", "oni 
553 pee Beet AND THEN TYPE IN CRRA YSGE oF URN s 


* 


4.3 RKDP CHAIN MODE 
THE PROGRAM IS CHAIN LOADED FROM RKDP PAK ON ORIVE 


fur 
io 


3 


230 0. AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE 
3 APPEARS: 

e33 DRO NOT TESTED 

235 DRIVE O WILL NOT BE TESTED SINCE THE R..uP PAK IS ON 
236 THAT DRIVE. 

23 

239 

e39 4.4 ACTL1 MODE 

241 THE PROGRAM IS LOADED BY THE ACT1i MONITOR. AFTER 
242 IDENTIFYING ITSELF, ASCERTAINS THE NUMBER OF DRIVES 
a3 PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE. 
24S 


5.0 DRIVE SELECTION 


24 

248 IF ANY PARTICULAR. DRIVE IS TO BE SELECTED FO 
249 TESTING, PUT T DRIVE ON "RUN, "WARTS ENABLE’. 
259 PUT THE REST OF THE DRIVES ON ‘LOAD’, “WRITE LOCK’. = 


esi THEN START AS USUAL. } 
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6.0 


SWITCH OPTIONS 
He i era eyes SNES ROE hfe 


ae OF ASH? U He oe Rea 4 “KE vponRo 
ROUTINE WHICH IS CALLED BY apres A_’ THE PROGRAM WILL 


The Score orig ene EE, ‘pe Ewes 


gn NTERED AS AN OCTAL NUMBER IN RESPONSE 
1B He PROMPT FROM MIHE auiicy” ENTRY ROUTINE: 
*SWR = NNNNNN NEW =’ 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQ 
"CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYP! 


iH REGISTER 
H seamed AND 


tat 2 
8 


ON PROCESSORS WITH HARDUARE SHITCH REGISTERS, THE *SOFTWARE’ SWITCH 
R MA IF PR FINDS ALL 16 SWITCHES IN THE 

‘tp? POSITION ALL SWITCH REGISTER REFERENCES Ice BE TO THE 

pr SHARES REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


SW<15>=] HALT ON ERROR 

SW<14>=] LOOP ON TEST 

SW<13>=1 INHIBIT ERROR PRINTOUTS 

SW<12>=1 CYCLE ON ol TO THE PREVIOUS 
*SCOPE’ STATEMENT 

SW<11>=] DUMP ALL RK1i REGISTERS ON ERROR 

a >=] RING BELL ON ERR 

W<O9>=1 LOOP ON SPECIFIC ERROR 

SW<08>=1 bor ON test INDICATED BY USER (SEE 

SW<06>=1 TYPE SEEK TIMER 

SW<OS>=1 TYPE HS 
(04 =1 PRINT THE COMPLETE GRAPH 


et oe 
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6.1 


6.2 


6.3 


5.4 


6.5 


6.6 


6.7 


' 


SW<03>=1 TERMINATE FUNCTION “ae BY USER 
SW<O2>=1 DROP THE DRIVE AFTER MAXI 
BPE LEE on 


ALLOWASLE 
SH<00>=1 ASK “FOR PATTERN. 
WRITE emery, (FUNCTION SELECTION 


SW< 15> 


THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR. MESSAGE AND -PERTINENT 
INFORMATION. PRESSING “CONTINUE” RESTORES NORMAL 
OPERATION OF THE PROGRAM 


SW< 14> 

3 PROGRAM LOOPS ON THE SUBTEST THAT IS BEI 

E cule N THE SWITCH IS PUT ON. THIS SWITCH I 
D NORMALLY ALONG WITH SW 15. 


SW< 13> 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
ae vee)” LOOPING ON TEST (SW 14) ‘OR LOOOPING ON 


SW< Le> 

THIS euitcH ALLOWS THE PROGRAM TO CYCLE FROM THE 
POINT. OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 

NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
AT THE BEGINNING OF THE SUBTEST WILL BE DONE AGAIN 

AND AGAIN. SEE SEC. 6.7 FORA DIFFERENT KIND OF 
SCOPE LOOP. 

SW<11> 

THIS SWITCH ALLOWS DUMPING OF ALL RK11 REGISTERS ON 
ENCOUNTERING AN ERROR. 

SW< 10> 


RINGS A BELL ON ERROR, USEFUL WHEN ERROR TYPEOUT IS 
INHIBITED. 


SW<09> 
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6.8 


6.9 


6.10 





AS ee ig 9 Hs TIGHTEST POSSIBLE SCOPE 
ALIZATION CF 


BPE aE NUN ALTE Wieloch 


ST 5 eins Th ero USING 
bie FERENT PA BARA ERS AND. Y OP wey HE 
PARAMETER IN ERRORS (EXAMPL KOR 15 BEING WRITTEN 

AD BACK WITH ¢ COLINT PATTERNS F' 177777. 


PATTERN S61 S61 15 GI GIV NG ERROR YOU MIGHT NOT Want TO 
eye) PATTERNS BEFORE HITTING ERROR ON 
THE aprouee BaTTERR IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE S&ITH PATTERN ONLY. ) 


SW< 08> 

THIS whicn IS USED TO SELECT A PARTICULAR TEST FOR 
EXECUTION. WHEN THE PROGRAM IS STARTED (200) WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARS: 

OCTAL TEST#? 


ie USER SHOUD REPLY WITH THE TEST NUMBER (OCTAL) 
HE WANTS ECT, FOLLOWED BY CARRIAGE RETURN. 


THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN. 0 
gel OUT OF THIS Lo PUT SW 8 BACK uy 0. wate? WIL 


N 
BEFORE TEST 4% CAN BE EXECUTED TEST 2 SHOULD HAVE 
peel GONE AND TEST & SHOULD HAVE BEEN DONE BEFORE 


SW< 06> 
THIS SWITCH WHEN SET MAKES THE PROGRAM TYPE THE SEEK 

THIS SWITCH CAN BE SET OR RESET BEFORE OR DURING THE 
SEEK TIMER EXECUTION, AND EVEN WHILE THE TYPECUT IS 
OCCURING. 
SW< 05> 


THIS SWITCH MAKES THE PROGRAM es THE GRAPHS. 


IF 
RESET BEFORE THE GRAPH-PLOTTING ROUTINE IS ENTERED, 


THE GRAPHS WILL BE SKIPPED 1, 8g IT CAN BE RESET 
EVEN AFTER SOME OF THE POINTS HAVE BEEN PLOTTED, TO 
SKIP PLOTTING REST OF THE POINTS. 


SW< 04> 
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408 THIS SHIT Is USED. TO. SELECT Tie, COMPLETE GRAPH 
419 . i. ERS ARE PLOTTED) 
HE eas 4 att at Tuts GHA Te hace Ihoftdbs i& PRINTED 


4) 6.le SW<03> 


41 

418 THIS SWITCH WHEN SET age ll Mad EXECUTION OF THE 
419 FUNCTION N nay BE m Pr reD A=210)._ A NEW 
420 FUNCTION NITIATED Riou. sefe Y U WANT TO KEEP 
421 ont Ls ON THE SAME FUNCTION, PUT SW 3 DOWN. SEE 


425 6.13 SW< 02> 


4>e 
4a? THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
43g the SELECTION LIST AND TESTING ER MAX 

429 ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 
430 THAT DRIVE IS EXCEEDED. IMUM ALLOWABLE ERROR 
431 COUNT IS 6, AFTER 6 ERRORS HAVE OCCURED THE DRIVE IS 
432 _ DROPPED AND A MESSAGE ( DRIVE # XXXXX DROPPED) IS 
ae ~ PRINTED. : 

44 

435 - 6.14. SW<OO> 

437 THIS SWITCH IS TO GE s¥SED HaTH Te, FUNCTION 
aa GHECK FUNCTION IS SEL a9 WITH Th d WATE 
43g BRE AM WILL 1 ie me i. Pein Hf 
441 WRITE CHECKED (PBT R SHOUL IN THE 
44 ; COCTBL PATTERN Ras PATTERN” WILL Ke Tet STEN (OR 
44 WRITE CHECK ED) on N THE DISK. FOR FURTHER INFORMATION 
444 REFER TO SEC. 9.9 


446 
447 7.0 PROGRAM DESCRIPTION 


448 
449 THE FIRST TEST IS AIMED AT DETECTING IMPEPENDING 
450 CTR CHANICAL FAILURES IN THE DRIVE AND 
451 3 INNER/OUTER LIMIT SWITCHES. 

453 , IN THE NEXT TWO TESTS THE DISK IS FORMATTED AND 
454 CHECKED FOR CORRECT FORMATTING. IF THE DISK Is 

455 AN RK-OSF THE FN TIRE areK. re FORMATTED EACH TIME 

456 THE EVEN DRIVE IS TESTED. 7 FORMATTING IS DONE WHEN 


THE ODD DRIVE IS TESTED. THE DISK IS CHECKED EACH 
TIME FOR PROPER FORMAT, HOWEVER. 
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IN NEXT TWO TESTS THE Ste te te tat ¥ Fr 
BIFFERENT SEEKING PRITERNG.” THE FIRST "ORE ni om 


(On31e-0-311-0-310.. Rh He "econo ONE 


CONVERGING-DIVERGING PATTERN . 
(0-312-1-311-2-310....). OR 
FURTH Re mie ats Alog DONE TO F 
ae Y TIME 

GIVEN. FOR The CONVIENCE OF 
DONE. WHENEVER AN ERROR OCCURS. 


IN THE SUBSEQUENT TESTS EXTENSI 
USING MORE THAN 2000 DIFFERENT PATTERNS. THE DATA 
IS READ, (SOFTWARE) COMPARED, AND WRITE CHECKED. 


Fenrir AN ERROR OCCURS RETRIES ARE DONE, TO CHECK 
IF IT WAS A Pe eOverers Pag OR NOT. THE USER ry 


baa TRANSFER BUFFERS Catt CAN BE SRE Sten By” TRE yg use 
TO a MEMORY. REFER TO LOCATIONS 
‘BUFO RBOUFL" ART Bar "BTRNOL IN THE LISTINGS 
FOR Oe DETAILS: SEE ttc 7.1 


THE SHUNT CURRENT oa. TEST WRITES, READS a 


CHECKS FOR ERRORS ON CYLINDERS 127 AND 128. THIS 
REGION HAS- CRITICAL “PACKING DENSITY" TO “LITE 
CURRENT” RATIOS. 


THE SEEK TIMER PROVIDES SEEK TIMES AND GRAPHS AS 
EXPLAINED IN SEC 8.9 


A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS. SEE SEC 9.0 


EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN 
EXPLANATION OF THAT TEST, THE USER IS ADVISED TO 
REFER TO THAT, IF MORE INFORMATION IS NEEDED. 


PERMISSIBLE USER PROGRAM MODIFICATIONS 


THE USER CAN MAKE MINOR CHANGES IN POINTERS TABLES 
T CARE OF HIS SPECIAL NEEDS. 1§ 
RoVisaate TO MAKE CHANGES IF ANY, RIGHT ar’ Te 
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Sil 7.1.1 SEEK aggnane CAN BE DONE BETHEEN ANY TWO CYLINDERS 
Si2 ING CHANGES DESCRIBED INT THE ,SYLINOER RODRE 39 
AE TORE cl! LOCATIONS « *SOAD’ . 
15 7 
516 7.1.2 IN CASE YOU HAVE @ LINE PRINTER AND WANT YOUR OUTPLT 
517 ON THE LINE INTER, CHANGE LOCATION ’$TPS’ TO 
18 177514 LOCATION *$tPB’ TO 177516 (LINE PRINTER 
519 VECTORS) . 
e31 7.1.3. INPUT/OUTPUT DATA BUFFERS (FROM WHERE DATA TRANSFERS 
523 
2c 
526 WILL BE DONE TO AND FROM THE DISK) CAN BE RELOCATED 
id TO ANYWHERE IN THE 4eak OF MEMORY (DO NOT OVERLAY THE 
28 PROGRAM). THIS CAN 2 DONE BY CHANGING THE CONTENTS 
529 OF LOCATIONS "PBUFO’ AND ‘PBUF1’ THE STARTING 
530 ADDRESSES OF THE TWO SER SELECTED BUFFERS. IT 
bal SHOULD BE NOTED THAT EACH OF THE THO BUFFERS SHOULD 
53 BE oe (DECIMAL) WORD LONG. : 
534 7.1.4 FOUR R DIFFERENT PATTERN N GENERATOR R ROUTINES HAVE BEEN 
535 PROG B. PTGENI Cc. 
536 See D. PTGEN3. RONEY HAVE BEEN DESCRIBED IN 
537 ; DETAIL AT CORRESPONDING LOCATIONS IN THE LISTING. 
539 THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED. aT 
539 THE BEGINING OF TEST 6. THIS CALLING ORDER CAN BE 
540 CHANGED BY MAKING CHANGES IN THE, FOUR POINTERS 
ul A.*PATO’ B. PATI’ C. 'PAT2’ D. 'PAT3’. THES 
543 POINTERS CONTAIN THE STARTING ADDRESS ‘OF PACH 
543 ROUTINE. 
cus 7.1.5 AS A SPECIAL CASE OF THE ABOVE, YOU CAN WRITE ‘THE 
546 SAME TWO (OR ONE) PATTERN/S ON’THE ENTIRE DISK USING 
547 : *PTGEND’ TO WRITE THE SA 
548 | CHANGE LOCATION ‘PATI’ TO "PTGENO’ (STARTING ADDRESS 
550 ¢ CHANGE LOCATION ’PAT2" TO *PTGENO’ (STARTING ADDRESS 
552 | CHANGE LOCATION 'PAT3’ TO ’PTGENO’ (STARTING ADDRESS 
coy se FILL LOCATIONS ’PTRNO1’ AND ’PTRNO2’ WITH THE 
SoS 4 PATTERN YOU WANT. 
4 ee. TO WRITE 2 DIFFERENT PATTERNS (IN ALTERNATING 
557 SECTORS): 
558 CHANGE "PATI", *PAT2’ AND ’PAT3’ AS DESCRIBED ABOVE. 
559 FILL PATRNOL AND "PATRNG2’ WITH THE THO PATTERNS 




















uy 
o 


orm 






unururatn 
a~totul 


ri 





Bee 





a 





$ 





CUT 
Ut BUM cate OD 





eatin 
(9 














a ee ee 


ste aT Repeal MACYLL 71732) 


- we 





8.0 


TR-SEP-76 16:29 PAGE 15 








IN, TEST 10, IF YOU WANT TO WRITE AND CHECK CYLINDERS 
127 wy WITH PATTERNS OTHER THAN THE le USED 
CH ANGE 8 Y OR ALL OF THE 12 POINTERS ‘'SP1° THROUGH 


epi 70 CONTAIN PATTERNS YOU WANT. 


SEEK TIMER & GRAPHS 


Groen Yo, T¥Re_ The SEEKS, fre SECTOR COUNTER wes” BEEN 
nor a 


Ne Se lo om Fy “tig pee ON THE ORACY, THE SE 


IN THE FIRST PART OF THIS TIMER, SOME CRITICAL SEEKS 


HAVE BEEN TIMED (CYLINDERS O-1, 179-181, 0-3, O-16, 
0-32, 0-202, 0-100) RCH wanes ts DONE "100 "TIMES 
TIME CORDED THE TIMES ARE SORTED Out 
AND A PRINTOUT IS He: SE WINE HOW MANY Tae § Q 

ante kc WAS OBTAINED. spare SEEK 


CYLINDERS, YOU os BY FOLLOWING THE INSTRUC trons 
AT LOCATION ’SOAD’ IN LISTINGS. © SEE SEC 


IN THE SECOND PART, A GRAPH OF THE "CYLINDER SEEKED 
FROM 0° IS PLOTTED AGAINST "SEEK TIME’. TWO GR 

ARE AVAILABLE, NORMALLY THE SMALL GRAPH IS PRINTED 
UT. THE SMALL GRAPH PLOTS THE SEEK TINES £08 
SELECTED CYLINDERS (ABOUT 49) COVERING THE RANG 
FR YLINDER 9 70 20e. IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE. 


THE OPTIONAL COMPLETE GRAPH (SW 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE ONE, BUT PLOTS ALL THE 
CYLINDERS (203). 


Le oO SHOWN ON LAST PAE IS A SAMPLE OUTPUT. IT 
HOULD BE REALIZED THAT DI rein DRIVES MAY HAVE A 
a TOHTLY  ehthatee CHARACTERIS 
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613 3.0 FUNCTION SELECTION PROGRAM 
$15 THIS PROGRAM GIVES THE USER A CAPABILITY 19 SELECT A 
pig FUNCTION AND EXECUTE IT, FROM THE tae ELETYPE. 
18 STARTING ADDRESS=210 

$20 ON STARTING THE PROGRAM AT 210, THE FOLLOWING 
ei QUESTION APPEARS: 

bes FUNCTION? 

£25 THE REPLY SHOULD BE: WR FOR WRITE 

B26 wc FOR WRITE CHECK 

&27 FOR READ 

£29 RC R READ CHECK 

629 CR FoR CONTROL RESET 
£30 DR ORIVE RESET 

621 Sk R SEEK OR 

£32 ALL COMMANDS SHOULD BE TERMINATED BY A CARRIAGE 
bs: RETURN. DEPENDING ON WHICH FUNCTION IS GIVEN THE 
625 

£36 

£37 

bsg FOLLOWING QUESTIONS APPEAR: 

£40 RKBA? TYPE IN THE BUS ADDRESS (OCTAL) 
£4! FOLLOWED BY A C.R. 







RKDA? TYPE IN THE DISK ADDRES (OCTAL? 
FOLLOWED SY C.R. 


IF_A NON-EXISTENT CYLINDER OR SECTOR ts SELECTED, 
THE QUESTION IS REPEATED AGAIN. 


SHOR TYPE_IN THE pp UreeR oF WORDS YOU_WANT 
TQ TRANSFER. IT SHOULD BE HUS IF YOU 
ay TO READ A Beet Peasy | iH 400 F FOLLOWED By ¢.R. 

ER OF W AN BE TRANSFERRED DEPENDING ON 
THe BURFER SIZE AVAILABLE. ; 


FOR A WRITE FUNCTION: IF SwO a SET Ne me PROGRAM 
WILL Oe rs HE ne THE UBER SHO Q BE 











TRAN EEE TTT 
RUN Ee tofu Cuban SAE 







Hy TEN, MOL 
659 oot tame “i5 8t BE WRITTEN ON THE DISK. NOTE THE NUMBER 
£60 Eee 0 BE MASTER AND THE DISK’ ADDRESS SHOULD 





66: BE SPECI FIED 
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eta. o ASKED FOR UE PATTERN RN T Mor UR T #E cuech tty. 
a BET ENE THE USER SHOULD Tegt 1 INT pe TEL g SHEGS Fin, 


TYPES PR THe CYUINGER NUM ERS (0t1 RO Tue WEEN WH eae 
THE SEER 15 FO BE DONE. TE a NON Ex STENT EN Ui 
IS TYPED {N THE QUESTION 1S REPEATED AGAIN, 


THE ae ON IS EXECUTED Rt AND AGAIN. GET 
QUT HIS LOOP 7a Oe Be. ae i THIS *POnNT 
THE QUESTION (FUNCTION?) 1 ASK 


Ma UPON EXECUTION OF @ FUNCTION AN ERROR OCCURS 4 
S REPORTED. ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERROR, ALSO APPLY TO THIS ERROR. 

hans THE INEUT STRING. CAN Be DELETED Gy HITTING 
TROBOUT™ KEY, THE NEW STRING CAN are 1 ip ei AGAIN. 
ERROR INFORMATION 


WHENEVER AN Noes MESSAGE IS PRINTED OUT, ALL 
REGISTERS OTHER DATA PERTAININNG Po THE ERROR 


BRE ALSO GI RKDS, RKER...RKBA INDICATE THE 
CONTENTS ENTS OF VENe CORRESPONDING REGISTERS ot Mt TIME 
OR 


EVERY ERROR MESSAGE CONTAINS A 
WICATES yy Eo. tie ER gROR He Progen sees “ERROR 
paakrt 


AND 

aie Uso OS i Sa re tga 
SINGLE "PaLT MILL GIVE, ft 13E 10 oR NORE THON ONE ONE ERROR 
ExARINATION OF TK bar TA GIVEN NLL ob “cena SERY 
HELPF BRIEF EXPLANATION OF 1S BEING 
CHECKED’ IN THE SUBTEST IS GIVEN AT THE BEGIN ING OF 


EVERY SUBTEST. ALL THE NUMBERS GIVEN WITH ERROR 
MESSAGES ARE IN OCTAL. 
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DERKLC. 


OCCURS BESIDES THE ERROR 


Par TOuT oe " BaeTou gus ve bee ene ARE GIVEN TO 
UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


fig at Oc oR Bp TS TyPeD. GUT AND. THe PRdare 
HALTS, IT IS INTACT, IT CAN RESTARTED BY 
PRESSING CONTINUE. 


F AN UNEXPECTED RK11 INTERRUPT OCCURS THE PROGRAM 
rE uae CAME IN AND 


N , WOULD RESTART THE 
PROGRAM FROM BEGINNING. 


COMMONLY USED SUBROUTINES 
- a EXPLAINATION OF Every SUR INS IS GIVEN I 


a 


INSTRUC TON cree isep 
sn FOR THE STARTING ADDRESS OF THE DESIRED 





| tami MACY1L 27(732) 


Sy he 


“J 
o 
~ 


Bk 


a 
w 


RERERRARRR Arata 
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SAMPLE GRAPH AND SEEK TIMER OUTPUTS 
KS 

Side! RA 

SEEK TIME SCALE FACTOR=0.01 nut SECS 


& OF SEEK 8 
SEEKS TIME SEEKS 


CYLS:0-202 
FRWRD 
100 9075 
CYLS:0-1 
FRWRD 
100 825 


CYLS: 179-isl 
FRWRD 
100 1155 
CYLS:0-3 
_ FRWROD 
100 1485 
CYLS:0-16 
FRWRD 


100 3135 
CYLS:0-32 
FRWRD 


100 3795 
CYLS:0-100 
FRWRD 


100 








FOe 





S THE NURSE 


OF 
REVRSE 
100 


REVRSE 
100 


REVRSE 
100 


REVRSE 
100 


REVRSE 
100 


REVRSE 
100 


REVRSE 
100 
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DZRKLC.P ie: 


793 é X AXIS - SEEK TIME - MILI SECS #4SAMPLE OUTPUT ## 
734 Y AXIS - CYLINDER SEEKED FROM 0 


735 
598 ew oth see coe 70 0 410 420 130 
733 
a 

1 

802 
2 
BOB 


oteifeared cobalt Esolel musekanbekenianieletsel 


oie 


moo moqimomuw 
0-2 b+ 0+ 6 + 0-2 0-20 => 2 O-2 b= 
ODNIDMUI£Wiu-O 


820 
82i 
822 
823 
824 
825 
B26 
827 
828 
829 
830 
831 ° 
832 
833 
834 
83S 


cococ 
VR 









02 
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Z 
ra 

Oo 
wi 
Bm p= 
20 





TITLE. Ne NAINDEC-11-DZRKL-C 

iD GIT Eabtenent abape 
Y mass. 01754 

HTPRoGre BY JIM KAPADIA 


SATHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
*PACKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 


te 
- j SJANUARY 1975 
; HREVISED MARCH 1976 BY TOM SAWYER 


-SBTTL OPERATIONAL SWITCH SETTINGS 


Rada dol AT ape 









;*# 
SWITCH USE 
i 15 HALT ON E 

871 tf 13 LOOP ON TEST 

ara ee 13 INHIBIT ERROR TYPEOUTS 

573 iY 13 CYCLE ON ERROR TO PREVIOUS *SCOPE’ 

B74 He 16 BELL ON ERROR 

875 te 3 LOOP ON ERROR 
tf 3 SELECT TEST TYPED IN BY USER 
te 6 SKIP SEEK TIMER 
te 5 SKIP THE GRAPHS 
i ; TYPE THE COMPLETE GRAPH (ALL SEEK TIMES) 
iY NOTE, OTHERMISE YOU GET SNELL GRAPH 
i . (Fon Pune ee FFbN pao PROGR =f fis210) 
; \ - 
pee PURE one est? 
te SOMBER BF ERRORS HAVE Occ cURED 
iY 0 ASK FOR PATTERN T0 BE WRITTEN (OR WRITE 
tt CHECKED), IN FUNCTION SELECTION PR 
ty rr RK REGISTER 







* YOU ARE ADVISED TO READ THE OOS ENT FOR THIS PROGRAM. 
% FUNCTION SELECTION PROGRAM STARTS AT 210. 





102 
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C 
ACTI1 HOOKS 


pt bee 
o—e 


MAI 
OZRKL 


«SBTTL ACT HOOKS 
; ioe Mah Of ec 
: “sires. ;SAVE PC 


=e s;1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"W 0 :;2)SET LOC.S2 TO ZERO 

,=S5VPC RESTORE PC 
.SBTTL BASIC DEFINITIONS 


3 
UFINITIAL OORESS OF THE STACK POINTER ### 1100 ### 


Stack= 1100 
-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
: *MISCELLANEOUS DEFINITIONS 
T= Il ;;CODE FOR HORIZONTAL TAB 
Fs 1 3 £006 FOR LIN FEED 

;;CODE FOR I RETURN 

*;CODE FOR CARRIAGE RETURN-LINE FEED 


923 Fe 


essai initesn an 


WOWUOWOWOWWOWwWw 
Ob 0 bo bo pe a pe pe pe 
O00 NOUl © UITueHC> 


DSWR= 177570 
DDOISP= 177570 


;#GENERAL PURPOSE REGISTER 
RO= “9 se 


5 


320 
Sel 
922 
$23 
ge4 33 
92S 
926 
$e? 
928 
$ 


IRR A RRO RE 
RARAAAAAA 


: 


% 
-EQUIV R6,SP 
-EQUIV R7,PC 


 s#PRIORITY LEVEL DEFINITI 
-PRO= 0 ; 


PERERERP 
arena 


Sa 


w 
Ww 
_ 
~~ 
P 
on 
=z 


a 


BREE 


ee ee wee we ee ws 
ewewe ws oo ee eee 


SEER EERE: 
Beseeses 
22222222 


= 


- #" SWITCH REGISTER" SWITCH DEFINITIONS 
GwiS= 100 


020000 
010000 


SW14 


40000 
20000 
10090 
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MACY11 27(732) 


BASIC DEFINITIONS 


MAINDEC-11-DZRKL-C 


DZRKLC.P11 


HAAR 


>> >>> o> oOo Oo > 
10 00 0-0 00004 0 4 4 0-4 4 4 


sadssadasaeeoeaae 


FRRLPTRAR RRR RERER 


t 
ae 


RRS 


;;RESERVED AND ILLEGAL INSTRUCTIONS 


;;TIME OUT AND OTHER ERRORS 


; TRACE TRAP 


Mod BIT 


Por OINTMU-O 
a aes eer es oe are 
O44 4 4 4 0 4 
eaterlerfesterlestesfesieses] 


_ 
wn 
— 
amy 
- . 
ma 
oO 
= 
Q 
Oo 
4 
me 
@ 
—~ 
w 
= 
o 
he 
~ 
wa 
z= 
i 
rm 


—_ 
SSSESS8500 


SATU T UST UST U-OODOMOOOMmM 


ZTHUHHNNHNMKNHKKRHhe Ke SSS SSS SSS 
Fe ON Oe BS eee Osos SSS Sasso SS 
afetatetetet statatatatatstaistetetetetetetetetetetetey 
0 4 4 404 04 4 04 400 00 4 4 0 ahaha thas had daha dashes dad bad 
*MODDOOMOOOMOMMOOMOMM 


;#BASIC “CPU” TRAP VECTOR ADDRESSES 


SEROMA RRR RE Rene REESE 


t-te 444 
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OZRKL BASIC DEF INT IONS 


, BOOTS s sBREAKPOINT TRAP (BPT) 
43 ANT Fal TRAP (IOT) ##SCOPEs# 


RP Trap (EMT) #*ERROR## 
rw TRAP 
Y Ke Yeon VECTOR 


TRAP 
ts we oH In FR ERRUPY REQUEST VECTOR 


.SBTTL TRAP CATCHER 


seta a 


20 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; #LOCATION ot cctuencies O TO CATCH IMPROPERLY LOADED VECTORS 


=] 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SWREG: _.WORD 0 ;;SOFTWARE SWITCH REGISTER 
SBTTL STARTING ADDRESS(ES) 
JMP OaSTART ; JUMP ‘TO STARTING ADDRESS OF PROGRAM 


0 0— b— 0 0 om 
00 NICU) .£ WIT 


AQANN0000K0000 


INCB FFUNC ;SET FLAG INDICATING SELECTION OF 
JMP JeSTART FUNCTION PROGRAM. 


1 
| 
1 
) 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BERRSHEes 





LO2 
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DZRKLC.P11 COMMON TAGS ; 


.SBTTL COMMON TAGS 


[yecetvesosereracentecsecareecescovevecseserscerscersesnananas 
ies He conte bey S VARIOUS COMMON STORAGE LOCATIONS 


a 
GJ 
-_ 


SR e ee oeERs 


l 001100 _— SCNTAG: nen ; ART OF COMMON T 

{Baa SBtRB SCRA. ere Th :BME : ova ee 

ibis BBL Bs ooobte CN Bre 8 Heott AinS i eto muiacour 
ie ai Si He) SR ee ae 

1047 001115 noo ee} SERMAX: . BYTE i + CONTAING MAX. ERRORS: PER Gest 

1048 00111 SERRPC: .WORD *:CONTAINS PC OF LAST ERROR INSTRUCTION 
tos) Spttse pandoD SGDADR: = SS CONTAING ADDRESS. OF "BRO DATA” 
ibey Obi ies 000000 SGDDAT: WORD : + ONTRING TEOOBT DATA 

1052 O011e6 000000 DAT: .WORD 0 ;;CONTAINS "BAD? DATA 

ts mite 000000 a : :RESERVED--NOT TO BE USED 

1 001 sees SAUTOB: :BYT afutonarie MODE INDICATOR 

1056 901135 000 SINTAG: -BYTE 0 :: INTERRUPT MODE INDICATOR 

{ pot tae eee SWR: WOR Boup ;;ADDRESS OF SWITCH REGISTER 

1058 O01 He 177870 DISPLAY: |, WORD DDISP $$ ADD ESS OF DISPLAY REGISTER 

t 1 001146 1 oeeD be 155ee8 S3TTY Keb b Burr 

10b¢ 001159 177564 S1PS: 177564 : Hauge PRINT NTER Rueree REG. RODRESS 
1064 ppt te [: BY 0 CONT AINS NUL CHARACTER FO 

1Oee BOLIEE «OL sritte: ‘BYIE {2 CONTAIN, OF FILLER goa TERS Reoutnen 
tg pot ies Bas Sr eete: BYTE 0 ?: "TERMINAL BvATCABLE™ FLAG (BIT<67>=0=YES) 
1068 001160 SREGAD: 0 *:CONTAINS THE ADDRE 

1898 01162 o000 SREGO: 0 Se eH INS eee CAc) An, GerAineD 

1071 601164 990000 SREGI: HORD 0 Henn ( ($REGAD) +8) @) 

195 Botis8 poD00e Sees; ‘tind ET EONTAING. ( (aRECAD) 26) 

1974 001172 o00000 SREGY: .WORD ss CONTAINS iE 

in? 001174 Ree: ;;CON ({ )+l2) 

107? 901200 SREG?; “WORD 0 SS CONTAINE. ((SREGAD) +16) 

tp MO12e02 o00000 REGIO: :WORD 0 He ONT AINE { (SRE 3438} 

107 Bp tSo4 900000 gree :0 *:ESCAPE ON ERROR ADDRESS 

1080 001208 177607 000377 SEELL: ASCIZ < (207) «377 37?) i #CODE FOR BELL 

tbe Bptsts O15 $e EB: BeetT < (i> + CARRIAGE RETURN 

1083 001214 oo0012 SLF: ASCIZ <l2> ‘LINE FEED 


1084 g3 UHHH HHH HHH HEHEHE HEEB AHHH EEE 





ee eee eee a 


M02 
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DZRKLC.P11 ERROR POINTER TABLE 


1085 .SBTTL EKROR POINTER TABLE 
1087 saTH , Mi TA INFORMATION FOR EACH ERROR THAT CAN CCUR. 
1086 Reon 1S of ogT BINED BY nen, te INDEX NUMBER Foto 
: 83 tFOcAT TON ¢ Hl 5 UNE : : S HHL ICH Tren IN IN T Bee IS PERTINENT. 
1581 jaNOTEL: ACH ITEM fe Gi ont CONTA od. ih Serre) AS FOLLOWS: 
1093 +% 4 s;POINTS TO T 
iba HPD POINTS 19 THe Bata 
1095 :# OT ; INTS TO 
1038 i + POINTS TO THE BATA FORMAT 
1097 
10 
1099 001216 SERRTB: 
tiot 
1196 sIN CASE YOU WANT THE OUTPUT TO COME OUT ON LINE PRINTER, (IF YOU HAVE 
1103 ONE), MAKE THE FOLLOWING CHANGES ABOVE: 
1105 ;CHANGE CONTENTS OF 'STPS’ TO 177514 (LPT VECTOR) 
1106 CHANGE CONTENTS OF ’$TPB’ TO 177516 ( ™ ) 
i107 sERROR ITEMS TABLE 
1108 : 
1109 : 
1110 : 
Hii :ITen | 
ik 001216 023506 EM1 sCNTRL RDY DIDN’T SET AFTER SEEK 
1114 O01220 ogo4Ese DH1 :PC RKCS RKER RKDS KDA 
1115 OOlee2 Gessos OT1 !SERRPC $REGO $REG1 SREG2 $REG3 
1116 001224 090000 0 
Hg sITEM 2 
1120 001226 023545 EM2 ;SIN ON SEEK 
1121 001230 oe46S2 DH1 :PC RKCS RKER  RKDS KDA 
li2e 001232 dessd6 OT1 ?SERRPC SREGO REG $REG2 S$REG3 
1le3 001234 000000 0 
1124 
1125 sITEM 3 
lle | 
1127 001 3561 EM3 :DRE ON SEEK 
1128 001240 oe4ES2 DH! : PC RKCS RKER RKDS  RKDA 
1129 OOle42 Oe5S506 OT1 'SERRPC SREGO $REG1 SREG2 SREG3 
1130 001244 000000 0 
1132 sITEM 4 
tis 1 3575 My RR’ ON SEEK 
us -? ’ 
Te ae 15¢8 452 BHI pe Kee RKER RKDS KDA 
1136 001252 dess06 OT1 “SERRPC $REGD SREG1 S$REG2 S$REG3 
1137 001254 0o000 0 
1138 
1139 sITEM 6S 
1140 
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DZRKLC.P11 ERROR POINTER TABLE 


ee 001256 023613 EMS ;DRU ON SEEK; BV PUT gonive ON a es TO ’RUN’ 
ue 
tas SBiSe9 BsceRe BH (ere Sheto ShEc1 Snece SRecs 
1144 001264 000000 0 
1145 : 
ih, ;ITEM 66 
114 1 M6 ;R/W/S RDY yor SET FTE oF « 
Has po1se8 beuces Be EBC SRR ROT SElek RKDA 
1150 O0l272 025506 DT1 : SERRPC SREGO SREGI Shea $REG3 
1151 001274 0 
1152 
12a ;ITEM =? 
1155 0012768 023717 EM7 ;SIN ON WRITE FMT 
1156 001300 7 DH7 3PC RKCS RKER RKDS RKDA CYLINDER 
1157 00130e 025522 DT7 ;SERRPC SREGO SREG1 S$REG2 S$REG3 S$REGY 
1158 001304 000000 0 
1159 
rey ;ITEM 10 
1162 0013068 023736 EM10 ;’ERR’ ON DOING WRITE FMT 
lls3 001310 024750 DH? :PC RKCS RKER RKDS RKDA CYLINDER 
1164 O013le OesS2e DT7 *SERRPC $REGO SREGL SREG2 SREG3 SREGH 
1165 001314 000000 0 
1166 
4te4 ;ITEM §611 
1169 001316 023767 ‘ EM11 ;SIN ON READ FMT 
ise 001320 o25025 ; ‘DHL a mcs oar a RKDA: 
1172 001322 025540 OT11 * SERRPC $REGO $REGI sReGe 
1173 : SREGY SREGS S$REGE S$REG7 
1174 001324 000000 0 
1175 
17? ;ITEM =le e 
1178 001326 O24005 EM12 ;’ERR’ ON READ FMT 
_ 1179 001330 024750 DH7 sPC RKCS RKER RKDS RKDA CYLINDER 
1180 O01332 O25S2e2 wf DT7 sSERRPC SREGO S$REG1 REG2 $REG3 S$REGY 
1181 601334 000000, 0 
1182 
ies = sITEM 13 
1185 001336 024027 EM13 ;WRONG HEADERS FROM ’SEC & 
1186 OO01340 OeSiee DH13 *SECTOR # HEADER RECVD 
1187 001342 000000 0 ; 
1188 44, 015250 ESR13 .;USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 
iit : ;ITEM 8614 
1192 00134 d24056 EM14 s ERROR ON IMPLIED SEEK FROM deat TO CYLB 
1193 001350 025141 DH14 *PC CYLA CYLB RKER RKDS TRY# 
1194 001352 O25S2e DT? : SERRPC SREGO SREGL S$REG2 S$REG3 SREGY 
ie 001354 000000 0 
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SRKLC.P1i |» ERROR POINTER TABLE 


-: 








113° ;ITEN IS 
ss 

1199 001356 02413! MSIS  ;READ WRONG HORS FROM CYLB ABOV 

1200 301369 025122 DH13. ;SEC# = HEADER RECVD 

1201 901262 900099 : 

120 OO13E4 O1SIS6 ESRIS ;GO0 TO “ESRIS” FOR TYPING OUT 

eo ;ITEM 18 

1205 901 924173 EM16 =; READ WRONG, FIRST WORD FROM SECTOR 0, ‘CYLB’ (ON IMPLIED SEEK FROM CYLA 
1207 001370 025220 OH1E = ; PC CYLA = CYLB ExECT RECVD TRYS 
1s pete sesese OT? :SERRPC $REGO $REGL SREG2 SREG3 S$REGH 
1309 001374 500000 a) | 

1210 

iB - stTEM 17 

2213 001376 024300 MS17 -«; READ FIRST WORD FROM SECTOR 1, "CYLB’ ABOVE 
1214 001400 75 DHI7 = 3PC_ = CYLB.=SCEXPCT = - RECVD 

1315 001402 bessee OT17 ;SERRPC S$REGO $REG1 S$REG2 

1315 COlN04 00000 0 

lei? 

1218 :ITEM 20 

1220 201408 o24346 EM20 = ; READ WRONG HEADER ON IMPLIED SEEK FROM *CYLA* TO “CYLB" 
1e21 001429 325126 DHI3  ;SECTOR # HEADER RECVD 

Ieee 901412 00000 

ees 051414 oi5324 2 ESR20 ;USE THIS SUBROUTINE FOR TYPING OLT ERROR DATA 
lE2S 

isce sITEM 2} 

teeg OOI4IE OB4H34 EM21 § ;EROR ON DOING WRITE ON DSK 

1 61425 deuss2 DHI :PC K RKER  =RKDS = RKDA 

1230 001422 O25506 OTL :SERRPC SREGO SREG1 $REG2 $REG3 

1231 O01424 300000 fs 

1232 

1233 ;ITEM 22 

-c 

1235 O01426 o24470 EM22 =; SIN ON DOING WRITE | 

123& 001430 O24ES=2 OHI ; Qk RKER RKDS KDA 

1237 001432 oess06 OT! ;SERRPC $REGO S$REGl S$REG2 $REG3 

1238 001434 900000 a) 

12 

1241 

le42 O01436 024513 EM23 HE ON DOING READ 

1243 001440 025025 DH11 «=6;PC = SORKCS-——(séRKER = RKDS-~—RKDA: 

1244 ;DRVe CYL SUR SEC . 
le45 Ool442 oess4o DT11  ;$ERRPC $REGO SREG1 SREG2 

124 ;SREGH $REGS $REGG §REG7 

1247 001444 000000 0 











les 
le51 OCOl44E Oe4534 EMe4 ;CSE ON READ 
PC TRY® 


leSe 001450 025333 DHe4 RKCS RKER RKDS RKDA: 


| 





7 
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DZRLC. PLL ERROR POINTER TABLE “, pee 
1253 :ORVe CYL 

1254 cCOol4sS2 Oess74 oT24  SERPC $ee610 ae sree ~ $REG2 

G 

138 oci4s4 oco000 0 

1298 :ITEM 2S 

1260 901456 O24550 3 EM25  ;DATA ERROR ON READ FROM DISK RODRESS 

126: O01460 d2s440 DH2S «6s: WORD® «CO EXPCT §«=6RECVD=—sCYL SUR SEC 
1e6e doi be 

igo 1464 Bente ‘, ESR2S  ;USE THIS ROUTINE FOR ERROR REPORTING 

ise? sITEM 8626 

€ . 

128? OOL4EE O24612 EM25  =:HE ON WRT CHK 

leee 01470 desdes DHI1 PC RKCS RKER RKDS  RKDA: 

1265 :ORV# = CYL SUR SEC 

1270 901472 o2sS40 OTL ; SERRPC SREGO $REG1  $REG2 

le7l 4 -$REGY S$REGS §REGE $REG7 

le72 01474 oO0000 0 

1273 

E78 7 a 

1276 001476 O24620 EM27  ;WRT CHK EROR 

1277 001500 025333 DHeY  —s-s PC TRY# RKCS RKER RKDS  RKDA: 
1278 :ORVe = CYL SUR SEC s " 
1278 901502 o2ss74 DT24  ;$ERRPC $REGIO $REGO $REG1 SREG2 

1289 :$REG4 $REGS $REGE  $REG7 

1281 901504 0 

1282 

1283 sITEM 39 

1284 

1285 O01S0& o24645 EM30 ~— ; ERROR ‘ : 

1286 901510 do4ese OHI PC RKCS_ AKER RKDS_ RKO 

1287 001512 dessd6 Tl :$ERRPC SRESC S$REGL SRES2 $REG3 

less 901514 900000 0 

1288 

1299 

1291 

1292 

1233 

1294 

1e35 ;TAGS AND GENERAL DATA AREA 

1297 901516 009 FTITLE: .BYTE 0 sFLAG, SET AFTER PRINTING PROGRAM TITLE 
1298 001517 909 FFUNC: .BYTE 0 SFLAG SET, TO INDICATE ENTRY INTO FUNCTION PROGRAM 
1299 901530 999 RKDPCH: .BYTE 0 SELAG, SET TO INDICATE RKOP ¢ HAIN MODE 
1300 001521 000 LUPSW: :BYTE 0 SET TO INDICAT 

130i PARTICULAR TEST WAS Ee eeres BY USER (SW 8) 
toa 

1305 001522 000 DRVDON: .BYTE 0 ;CONTAINS NUMBER OF DRIVES THAT HAVE 
1306 :BEEN ALREADY 

1307 o01s23 ooo ORIVS: .BYTE 0 ‘CONTAINS TOTAL § iF DRIVES PRESENT 








Cad el ed ed el 
ate ett ett ttt atte 
OW IOU 4 Ltr OE 
BS88E888 
0+ b= b= 0 = bb 


fy 


ww 
sESSRTRS 


BENOoYy 


S 


Ley) 


fe 
888 . 888 


a aT RR Ee RES oa 


2 02 0s = = 92 0 & 2 2 Bs b= = > 8-2 > 2 b= B= = = 0 FF 2 = 0 b= 0 0 = 02 2 2 Be § 0 fo B0 § = 2h 90 2 00 Be B= 0 bo 


* 
+ 


007670 
007752 
010054 
010116 


LE RROR POINTER TABL 
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. EVEN 


° BLKW 
© BLKW 
° BLKW 


;IN CASE, YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY 
ADDRESS’ YOU CAN DO SO BY NG THE 
BOTH THE BUFFERS SHOULD BE 768 (DECIMAL) WORDS LONG. 


s POINTER Pele STARTING noone SS _* 


TOBUFO 
TOBUF 1 


: .WORD 
: .WORD 


PTGENO 
PTGEN] 
PTGENe 
PTGEN3 





een ce is NTER TO 
gaTaN THe ADDRESS OF THE DRIVE 

AGS TO NoqCATe 

CUCAR DRIVE 


Test, 14, 15 
‘ten THE LOGICAL X Onive 
: ADDRESS 


;GENERAL REGISTERS 


;CONTAINS INNER ADDRESS 
:CONTAINS OUTER ADDRESS 


;GENERAL BUFFERS 


FOLLOWING POINTERS. 


7 
;FLAG FOR + TOBUFL’ 


OF “PATRN GENERATOR O° 
_"PATRN GENERATOR 1° 
*PATRN GENRATOR 2° 
*PATRN GENRATOR 3° 
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OZRKLC.P11 ERROR POINTER TABLE 


i3ee 001722 PRSPAT: . ‘Sante ho he RS De th 
001724 NXTPAT: . Rove 
001726 PGSUBR: . 
001730 DSKAOR: . 
001732 BUSADR: . 
001734 WROCNT: . 
WOSKAD: . 
WBUSAD: . 
WWROCN: . 
BUFNO: 
ADRES: 
;RKil REGISTERS 


feel Sia Re ANE PULA PERL EL 


MODIFIED Sb THAT THE CORRECT REGISTER ADDRESS IS iSeD 


o 


0 0 9 bo poo 
Bite 
weune 


;CONTAINS DISK ADRES (DA) 
;CONTAINS BUS ADRES (BA) 
;CONTAINS WORD COUNT 
;CONTAINS DISK ADRES 
;CONTAINS BUS ADRES 
;CONTAINS WORD COUNT 
;CONTAINS STARTING ADRES 
;0F A BUFFER 


oO oO ood aod aqa0qondoeon9an oa 


TVOe 


1 
1 
1 
1 
i 
1 
1 
i 
i 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 


SEIRRPORE RSE IRR EOE ROS SRR PER Bsa 


PRIORITY BITS IN PSW) 
VECTOR ADDRESS 

11 _ INTERRUPTS. THE 

HAS BEEN CHANGED, MODIFY 


;GENERAL INDEX REGISTERS 





Me PS ata MACYL1 @7(732) 16-SEP-76 16:29 PAGE 32 
DZRKLC.P11 ERROR POINTER TABLE 


INOX3: 
INDX4: 


| 


RCNT?: 
ERCNTS: O 


;#THE FOLLOWING TABLE CONTAINS THE CYLINDERS BE Teen WHICH THE SEEKS WILL SE 
ie ph 3 Ev BEEN ET be Renn TO ¢ VE wane ro tine sees T Me FOR Ay 
5 TWEEN 
OTHER coe. OF CYLINDERS, MAKE CHANGES INT THE CORRESPONDING SEEK EYLINOER 


OUTER CYLINDER ADDRESS, FROM WHERE SEEK WILL BE DONE 
S0A0: p CYLINDER 0 

43140 
9 
6 
a} ; 
;#INNER ADDRESS, TO WHICH 
SIAD: 14500 ; 


FOUL I R USED TO_ TRANSFER CONROL. TO THE . 
SING SW 8. IF ANY MORE TESTS ARE 
¥ ADDITIONAL POINTERS SHOULD BE INSERTED. 


SEFATOR EERO MNRONAO SS SS 


w 
wo 


TST11+ 


“MESSAGES & ASCI 
005015 O44523 000116 MSGI:  .ASCIZ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


saltiness 








NAINDEC=11-DZRKL-C 
DZRKLC.P1 


1500 


GetentaRe 


0 bt ee 
NOW UITUeHO 


NUNN 


SOREN toes 


0+ 0 b+ > & 0 -< 0 b = = & = 0 B= bb = b+ 2 = OO = = + = = =  E- — 


wn 
ny} 


B= 
= FR. 


1 


Rin Rin Wise 


= hledchn HER BV 






MACYL1_27(732) 
ERROR POINTER TABLE 


045523 


000105 


| ond aed 
wr 


BRED 
Seu 


nan 
—. 

£1 

otN 


Oo oO 
mn uw 
Ww ry 
te 
-— 
- tf 


16-SEP-76 16:29 PAGE 33 


MSGe: 
MSG3: 


MSG11: 


MSGle2: 






-ASCIZ 
-ASCIZ 


-ASCIZ 


ASCIZ 


«ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


«15><12> /SKE/ 
(15><12>/TEST # ABORTED: / 


€15><12>/PROG ABORTED/ 


" (15><12> READ HORS OK FROM CYLB ABOVE’ 


/EXPCTD HDR= / 


(15><12>/CNTRL ROY DION’T SET/ 


/SECTR EXPC P-HOR RECV P-HDR/ 


€15><12>"R/W/S RDY NOT SET” 


4 TRY &:7 


(15><12>/DRIVE / 


/ 


~~ SN AN NNN 








MAINDECSL1-DZRKL=C eotnetht 7(732) 16-SEP-76 16:29 PAGE 34 

1533 002405. O40 BLNKS3: ASCII fy 
Md . 000 BLNKE I; “AScLe ss 
EVEN 


ay Be Heh § 
14 FORVEI: 
16 DRHOLD: 


HO3 









MAINDEC-11-DZRKL-C MACY11 _€7(732) 
KLE. PLL POINTER T 


fe 
ne 
2 
2B 


= 


_ 


Oo0O000000 oO 


et el ee ee ee ee a o-2 


dé dddeeddd gl 


- 


88 
E- 


Bee 
ONS 
wIUN 


tra A od aT 


++ +- bb - be 0 b= 9 0 9-2 b> b= 8 0 = b= = 0 6 8 0 0 0 0 0 0 = 
st 


uw 
& 


a Ce Tn) pee ee 7 ne oe 


oo 
une 
0 


be 
mannan 
SRRLS 


103 


16-SEP-76 16:29 PAGE 35 


;THIS IS THE HANDLER FOR UNEXPECTED TIME OUT. PRESSING CONTINUE WILL 
SRESTART THE PROGRAM. 


BADTMO: ney (SP) RO ;SAVE PC WHERE TIME OUT OCCURED 
TST -(ROS 


ae ea" (SP)+ ;RESTORE STACK POINTER 
PIGET ov 2 
jig5s: -ASCIZ 18> <12>/TIMOUT: :Pés/ 
MOV RO,-(SP) ;SET_UP FOR TYPING OUT PC 
TyPOC GO TYPE OUT OCTAL PC 
HAL. 
STAR 
“seit Lt TN Eero THE COMMON TAGS 
33 ONMON TAGS (SCMTAG) AREA 
SCHTAG, Rb ssRIRST LOCATION TO BE CLEARED 
cu (R6)+ Be - ;;CLEAR MEMORY LOCATION 
+] se 


;;LOOP BACK IF NO 
oy aSTACK +Bes ;;SETUP THE STACK POINTER 
ss INITIALS is A FEW vect 


uSSCOPE GRIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
NOY ator + 3 LEVEL ? 
MOV Sik VECTOR FOR TRAP CALLS 
NOY HR tt tier? FAILURE VECTOR 
MOV £30, ey ts ;:LE 
HOV 35 INE we THE THE LOOP ADRESS FOR SCOPE 
ss SIZE Ze FOR A hale Ely pectbfen. 1 If fo FRE OUND OR ts 
ERA te A nl epave oc BHOR VECTOR 
MOV #64S eae vf SRROR VECTOR — 
ye wy Ha ron 8 Lenawee SiH BEGISTER 
CMP eopIse >: TRY Fo 3 3 REC ; z SPRGUARE us 
BNE 66S UR ie weoue NO TIMEOUT UT TRAP yQgCURRED 
BR &5$ :: BRANCH OUT 
64S: Hoy #65S, (SP) ::SET UP Ft TarOUT 
65S: Hoy as SURE EGS SHR oy gy) #POINT TO SOFTWARE SWR 
66S: MOV (SPie SERVES ;;RESTORE ERROR VECTOR 
MOV RROR, J#EMTV 
MOV a0. SR eye” 
RESET 


-SBTTL _TYPE PROGRAM NAME 
TYPE THE NAME OF THE PROGRAM IF FIRST PASS 











mane lS, 


9b 9 9 pe ° 


85 = bb 
ti he oe ae ae oe z 
2 9 = b+ pan fe fe Fo FG Bae 


BARRA RRA A A ARR AR RR 
eee 


Be Ban BS 
PE Gee eee 


os 


: 


8 8 
RS 
a 


00S227 


MACY11 27(732) 
NAME 


TYPE PROGRAM 


177777 
002730 
ooco4e 
001140 


ooc001 


001517 
001517 
Dee344 
001520 
001530 
177770 
000003 


000042 
000041 


000041 
00004! 


003114 


003174 


000176 


001134 


000992 


ocoote 


JO3 


16-SEP-76 16:29 PAGE 36 


. SBTTL 


; FeRaCH TIME 


ch SOF THARE stra fe 


NG UNDER XXDP/ACT? 


INC 
ty fe 
TST 
ae UF sce NG Fey CH REG SELECTED? 
erSuR Rae +1 BRR arenas IFN SETTINGS 
698: MOVB  #1,SAUTOB — AUTO-MODE INDICATOR 
"BR 67S +:GET OVER THE ASCIZ 
jages: SASCIZ <CRLF><15><12>/RK11 DYNAMIC TESTS MAINDEC-11-DZRKL-C/<CRLF> 
STARTI: S18 FEUNC ;FUNCTION PROGRAM SELECTED? 
CLRB FEunc VES CLEAR THE FLAG 
INP SaF UNBEG :G0 TO "FUNTION SELECTION PROGRAM’ 
7S: MOV sRKOPCH, RO ; CLEAR FLAGS FROM 
5s: CLRB :*RKDPCH’ TO *DRIVAD’ 
CMP Ro. sORIVAD+2 
BNE ss’ 
MOV #-10,R1 
6S: IC #3, (RO)+ CLEAR BT. 0°S IN ’DRIVE 
NC Ri IBRESENT’ FLAGS. 
6$ 
; THE FOLLOWING CODE FINS OUT THE PROGRAM CONTROL MODE: 
:PAPER TAPE (MANUAL), ACT11, RKDP CHAIN OR DUMP 
TST a2 31S LOC 42 0? 
BNE 1$ ry H 
CMPB #41, #2 sDOES BYTE | HL CONTAIN 2? 
BeQ 2s DP DUMP MODE 
ee se NS "PROGRAM LOADED BY PAPER TP 
18: CMPB Oss #41, #2 ; DOES BYTE 41 CONTAIN 2? 
BEQ 33 RKDP CHAIN MODE 
TSTB 3s B41 igyT TE41 
BEQ sT2 SACTIL 
2s: 
TYPE S$ He ASCIZ § STRING 
BR 4§ OVER T HE ASCIZ 
jigs: ASCIZ <15><12>/REPLACE’ ORO BF RA “PAK BY OTHER & TYPE CR/ 
, TyPE 53 TYPE ASCIZ fie notte 
jjg7s: ASCIZ "gaa NOT bf dee ER 










te 
ieee 


i 
oO" at 


bo 


1 
166 


SRR RRS aaa 


SES SERIE OB SRR EERE 


Pn = bb bb 8 bh b+ 6 > — & = B= 6 = 6 = b= B= 8 O - 2 B ~ pe = m2 O-— = 
be 


S 
fe 


ee eee 
SNS 
RED 


—- 
“Ns 
bit 


ee a cata | 
DZRKLC.P 


: 


16 
1pp0 es 


7 

ate 

003242 
000001 
002420 
fF 3306 
001523 


001530 


176412 
176374 


ese Bu? 


020900 


Oe3s4ee2 
3? 001523 
003420 


015040 


0 3700 001530 
18710 


ooo0de 


MACY11 27(732) 
GET VALUE FOR. SOFTWARE SWITCH REGISTER 





16-SEP 


1$: 


2s: 


-67$: 


bis: 


3$: 
S$: 


><12>/DRO NOT +GETe 





;READ CHAR FROM KBRD 
;POP_UP STACK 

;RKDP DUMP 

$5 TYPE ASCIZ STRING 
QVER THE THE ASCIZ 


;SET FLAG INDICATING RKDP CHAIN MODE 


;SET TIME OUT VECTOR FOR 
;UNEXPECTED TIME OUT 


eam 


S WHICH DRIVES ARE ee & PRINTS QUT THE DRIVE 


s: TYPE ASCIZ: STRING 
ASCcIz 


O48 <12>/DRIVES baeseNty 


; INITIALIZE NO. OF DRVS PRESENT 


j INITIALIZE COUNT TO 0 
eit A DRIV 
313 I Ae St ? 


iN REnENT "TOTAL_# OF DRVS Rs 
SET FLAG INDICATING THIS ORV PRSNT * 


; INCREMENT a gl 
NXT 


3FIND wires ARE F 
RE ANY DRIVES FOUND? 


i ite ASCIZ STRING 
S:GET OVER THE ASCIZ 
;IF NONE WERE FOUND, GO 

: 510 THE E PROGRAM 


sTRGLE OF AVAIL DRIVES 
; pORSVe Me 


PUSH NO ON THE STACK 
10 TYPE OCTAL NO. 
;TYPE 1 DIGIT, SUPRESS LOG o S 


31S IT RKOSF? 


-76 16:29 PAGE 37 
PF, 
a OST 
TYPE 69S 
3R 
-ASCIZ bgs 
MOVB #1, RKDPCH 
MOV #BADTMO, 84 

ODE FIND 

NUMBERS THAT WERE FOUND ON 
TYPE bss 
BR 
.ASCIZ 
CLRB  =sORIVS 
CLR RI 
MOV #ORIVO, R2 
SOV. OR RKDA 
TSTB  aRKDS 
BPL 2g 
yee RY 
els (R2)+ 
INC R3 
ADD #20000, R1 
BNE 1S 
ISR PC S1ZEF 
1578 pets 
BNE § 

TYPE 675 

BR b6$ 
-ASCIZ 7 NONE/ 
IMP SEOP 
CLR Re 

MOV #ORIVO, RO 
TSTB = (RO) 
BEQ 

TYPE 

SCRLF 

MOY R2,-(SP) 
TYPOS 

-BYTE 1 

“BYTE 0 

BIT #2, (RO) 





ks 11-DZRKL-C 
DZRKLC.P11 GET VALUE 


ipsao0 003472 


oe 


~~ 
SINININININININININININIS 
Dw Ir £ wore 


OD ITU 


FESASRELRASRO SEO OND 


Fs 


Bene SS 


a 
We) 


“ 


0 b-+ = bp > b= 8 = b= bb 8 = 0 + 0 = 0 = = = = 0 8 0 = = = 0 2 0 0 = b= 0 0 bb bo = = pe 0 9 9 pe pn pe 





BR 
ee 


ae 


8 

—-)ON™N 

wNVONOG 
“NI Ts 


8 
= 


Racers 
ZSS28ES 





002414 
005037 
oodode 


é 16-SEP-76 
FOR SOFTWARE SWITCH REGISTER 


es: 


3$: 


7$: 


16:29 PAGE 38 


4g 
Bg" 


/F/ 


(RO)+ 
RO, sORIV7+1 


R1, #ORIV7+2 
1$ 

SEOP 
#160000,-2(R1) 


R4,-(SP) 
1 

0 
FORVE1 


D 
NDICATE THAT DRIVE # WILL 















OF RE Wel 
Bg aE 


CHECK 
iN, THAT IS PRESENT. PUT THE ADDRESS 


ares 





;RESET TEST NUMBER TO 1 
;CLEAR ERROR COUNT FOR THIS DRIVE 


318 THIS ORI DRIVE PRESENT? 
SCRECKED T THE WHOLE LIST? 
'YES, EXIT 

1S IT DRIVE 0? 


TF IT RKDP CHAIN MODE? 
YES, spony TEST DR ve" 


AHEAD 
‘tet SRIVE NO. TO BE TESTED 
;SHOWS F IF -1 

:RK-OSF? 


ICHOWS F 

-EVEN DRIVE? 

?RKOSF AND EVEN 
;SET UP DRIVE ADRES 


;TYPE OUT THE DRIVE NO. 


RK-OSF? 


NO 
:;TYPE ASCIZ STRING é 
SiGET OVER THE ASCIZ . 





MO3 
SRE mPOA ai 


-ASCIZ /F/ 


ae 


003714 gue: 


003714 a . 
I T THEN FIND OUT WHICH TEST NUMBER IS 
Li ATED BNo JUMP TO HOT test 


001521 W ;CLEAR FLAG INDICATING SW8 SET 
000409 17S2l2 ay i 8 SET? 


o 
“ 


& 2 = &—b— Ph Be 


Gaodaea ia Wastes 


003736 , ; TYPE ASCIZ. STRING 
b6$ THE ASCIZ 
¢15><12>/0CTAL TEST H?/ 


(SP)+,RO 


, #11 “CHECK TYPED IN TEST & 
31S LEGAL, IF NOT ASK 
ge STSTO 


RD ;FORM POINTERS FOR THE TEST # 
PT1(RO),SLPADR ;ADJUST POINTERS FOR SCOPE 
SLPADR,$LPERR  ;LOOP . 

LUPSW :SET FLAG INDICATING TEST # 


JSLPADR ‘0 TO THE TEST SELECTED 


;ON RECOVERY FROM POWER FALIURE RETURN HERE 
PWRFL: CLR 

CLR 
1$: INC 

BNE 

INCB 

BNE 


SS np ete 


=: 


EA HHEE HEHEHE EHH HEHEHE HEE EEE 
ATEST 1 CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 
THIS TEST PERFORMS 200(8) PURE SEEKS FROM CYLINDER 0 
aT CYLINDER 312 AND BACK TO 0. IT IS SUPPOSED TO 
#CHECK THE INNER LIMIT SWITCH me. | Visual CHECK FoR 


Pit 


: HEINTEGRTTY OF THE D RIVE. NOTE T A VIS 
‘ MECHANICAL FAILURES WOULD BE Myer 

r jpesssliaatesensnunietaaitesacneaanatansessentoonsioantsan 
o00004 téT1: SCOPE 

005000 eL INTE COUNT 
005001 E COUNT FOR # OF SEEKS 


005002 CLR Re 
012737 OO04104 001110 MOV #20$, SLPERR iSpy RETURN ORES FOR LUPING 


a 
WOnNOUsWwrUe-O 


s 


i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
e 
] 
1 
‘1 
1 


& 





le aS | eat 


DZRKLC.P11 


ReRaReRE 


Bo 22 S22 Soeeee 2 see2 


8833 
SS a 


fis bo 


te 


1 


Seoeo 


ho 0 be 0 he ob 0 ho 9 ee 
HEDM—oDe 


LL 


ono 
oe SUF HOR SBRRSS KF SR 


fs be bs pe bm Cn ee ee be bs bs bs pb ee 


id 
aca 
Ops 
—-OW 


T1 


012777 
005200 
001007 
004737 
104001 
005203 
005204 
001502 
uud403 


105777 
100364 


MACY11 27(732) 


16-SEP-76 16:29 


PAGE 40 
CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 


aad 

177770 
1$: 
56: 


pasa, 175644 3$: 


000011 


015754 


175554 S$: 
000100 175536 


015754 


001000 175506 7%: 


015754 


175602 e218: . 
"4S: 


yO 


CLR R3 
CON. RESET 
DRV.RESET 


MOV DRIVAD, IRKDA 
BIS R2, JRKDA 


TSTS = BRKDS 

BMI 1$ 

JSR BG: GTHRG 
ERROR 30 

INC R3 

INC RS 

BEQ 18 

MOV #11, 2RKCS 
INC RO 

BNE c$ 

JSR PC, GTHRG 
ERROR 1 

INC R3 

INC RY 

BEQ 18$ 

BR 6$ 

TSTB  aRKCS 
BPL 4 


C RO 
BIT #100, dRKDS 
B 7$ 


6$+2 
JSR pee SINR 


INC R3 

INC . RY 

BEQ 18$ 

BIT #1000, 3RKDS 
BEQ 8$ 
JSR PC, GTYRG 
ERROR 2 

INC R3 


are Gr ENTRE-40 7, SIh OR Rus ROY ERORS 


ALLOW ONLY 8 ORUSDRE +ERRSDRY ERROR 


HAS Tere ANY ERROR? 


OR EROR FLAG 
:60 00, CNTRE RESET. SUB ROUTINE 
GO TO *DRV.RST’ & DO DRV RESET 


;ADRES THE DRIVE 
;SET SEEK ADRES 
i DRIVE RDY? 


YES 
NO GET RKCS, ER, DS, DA 
; DRIVE RDY BIT IS’NOT’SET 


SET RROR FLAG 
a * ONLY S ERORS, IF MORE 


G0 GET RKCS DS, DA 
s CNTRL RDY STANF Rs SET AFTER 
WAS DONE TO CYLINDER 
OWN IN RKDA. GO TO ’RK11 LOGIC TESTS’ 
:SET ERROR FLAG 
EXIT THIS TEST IF THERE RS OR MORE ERRORS 


:DID CNTRL RDY SET? 
IF NOT WAIT FOR IT 
s INITIALIZE COUNT 
:R/W/S RDY SET? 
“WAIT FOR R/W/S RDY 
;GET RKCS, ER, DS 


DA 
*R/W/S ROY DID NOt SET WHEN SEEK 
sues Pon DONE mi CYLINOER INDICATED IN RKDA 


:IF Min EROR COUNT, ABORT - 
SIN ERROR? 

NO, BRANCH 

GO; GET RKCS ER, DS. DA 
SIN ERROR, ON DOING SEEK TO 


“CYL AS SHOWN IN 
SET ERROR FLAG 





- 


~~ 


tn 

REE sed F, 

8 geag 5 
mn & 


B89 





SRS R PN oes 
B38 


si 
23 


Boe es 


0.0.0.0.0.00 0000 
0+ 0 0 = 9-2 sb CD 


604354 
OO4SSE 


004360 
904364 
004366 


—OOD NOUS Wr-Ow 


ESAS 


Bat 


004372 
004374 


sa 


904376 
004402 


0 *0--0 0-0 0 -+ 0 8 © + 0 = 0 + 0 +o > + 0 8 = 0-2 = 0-9 8 +20 <> +9 d +00 2-0-2 6 -< 0 - > <0 2b h <h-2b 29 2 & oo 0-0 © 0-6 ~ 0-0-6 << <9 +9 H- 
eo 
~ ¢. 





60.0.0.0 
ww 
to 


POPORS, ti Senay 


905203 
00S205 
001413 


005702 
001402 
ogsode 
000647 
912702 
005291 
022701 
001241 
000404 


104400 
600137 


MACY11 &7 (732) 


175466 


ois7s4 


L7S446 
015754 


oo20c0 
o1s7s4 


108: 


17S41& 12S: 


15$: 


1e$: 


a 
Dur -4+ © 
E 


i6-SEP-76 16:29 PAGE 41 
CHECK INNER LIMIT SWITCH $8 ELECTROMECHANICAL INTEGRITY 


RY 

18$ 
JRKER 
10$ 
PC,GTYRG 


Les 

#2000, dRKDS 
FC, GTYRG 

5 


Re 

i$ 
#14500, Re 
Rl 
#200,R1 
1§ 

TsTe 


MSG4 
tsTle2 





BO4 






; IF MAXM enon am REACHED, 
; ABORT HL. TEST 
;ORE ERROR? 


:G0, GET RKCS, ER, DS, DA 
:DRE ON DOING NG SEEK TO’ SYLINOER 
AS SH Ne 


$567 ERR Se FLAG 
MAXM EROR COUNT REACHED, 
‘ABORT THE TEST 


3 ERR” ayn RKCS Ser? 


G2 aG87, FACS, ER 
ee Ace’ Set. 3h BOING SEEK 
iro ¢ SHOWN IN RKDA. NOTE 


STEN BIT IN RKER SET? — 


ise one LAG 
MAXM ROR COUNT REACHED, 
Bont THE TEST 


p IVE ON 

coe “BACK TO RUN. FU ERR ERROR 
ULD BE CLEARED. I 

il) THE HE HEAD "POSITION TRANSEVe Nop LAMP 

+2) AR ERAGE 0 OR WRT CURRENT PRESENT 

‘WITHOUT 'WRT GATE’ 

:SET EROR FLAG 

sALLOU ONLY § ERRORS 

IF MORE THAN 

:60 "9 THE END OF THE PROGRAM 


sWAS SEEKING TO 0 OR 312? 
10 0, BRANCH 
3}2 
SEEK NXT TIME TO 0 
:60 BAK & SK TO 9 


;SEEK NXT TIME TO 312 
;DONE SEEKS 200 TIMES” 


31F NOT, GO BAK 





2 


“uU'ui 


O00 00 
4. 0nd IGS 


é 


+ 0--0 6 -9--0 -0— &— p--p - 
eo- 


H.00 
4. 4. te 


rata e 
cave 
Fret 


£2 
ow 


ie 


1 
1 
1 
1 
1 
1 
1 
i 
i 
i 
1 
1 
1 
} 
1 
1 
i 
1 
1 
1 
1 
1 
! 
! 
i 
1 
1 
1 


SSSR ISS A a ab AUS ra dd 


~ 


SRR RRERISS 





oo1s26 ‘o0e416 
o02412 


175242 
175226 
d01118 
175210 


175174 





16-SEP-76 16:29 PAGE 4e 


Matai 
THIS PR 


Caan 
ACE BND SECTOR 8. 


:#ERROR IS REPORT 
Sc 
MOV DRIVAD, ORHOLD 
TST FDR IVE’ 
BNE Hs 
TST ORVE! 
BNE TST3 
MOV #-626 ,Re 
6 a-14,.R 
MuV #-5, 
MOV a-5 
MOV DRIVAD, RY 
CON. RESET 
ORV .RESET 
CLR RO 
TST aRKCS 
BPL 3$ 
CON. RESET 
CLR 


-(SP) 
MOV $l2e$,-(SF) 


MOV 
MOV BOUTBLF 3 JRKBA 
MOV RKDA 

MOV om 4135 


MOV #45, SC PERR 


MOV #2003, IRKCS 


SIT #1000, 2RKDS 
REO 6S | 

JSR PC, GTSRG 

ERROR 7? 








seer steeneeepanane tae gunceneeneeennssennnssseeenetesens 


AN UNFORMATTED DISK AND ‘I 


EVERY SECTOR’ IS WRITTEN 
nie i ee Bekies ER 


N THIS TEST. A SECTOR IS FORMAT eo 
R — can 

AT DRIVE RESET IS DONE 
Pie Pl 


2. *ERR’ ON FINDING THAT 
; ®SCANNED TO 2 WHAT CAUSED IT AND 


THE _’ERR’ BIT we RKE 
THE 


{Dry | age geen pemepeencrens 
2: 


;SAVE DRIVE NUMBER 
;SEE IF EVEN RK-OSF ORIVE 


$068 K-OSF? 
:D0 NOT FORMAT IF OOD RK-OSF 


5003 CUE NDERS, (40& TRAKS) 
SACL QW ONLY S "SIN’ ERRORS 
;ALLOW ONLY S "ERR’S 
;STORE ADRES OF DRIVE. 
0 *OR-RST’ 8 DO ORIVE RESET 
ERORS 


Reer COUNT OF *SIN* 
sBLL OM 3 RETRIES ON SIN 


;GO0 TO *CN-RST’ & DO CONTROL RESET 


SFROM THIS 

!0N THIS DISK SECTOR 
:URITE 

'SET RETURN ADDRESS FOR 
:CUPING ON ERROR 

:G0 WRT FMT 

WAIT FOR CONTROL READY 
tWAS THERE A SIN? 


:NO, SKIP. DOING ORV RESE 

G0) GET RKCS, ER DS ay CYLINDER 
SIA N ERROR ON TR RYING to 
ND ICATED IN EEMQER 3S 3 RETRIES 


ZAR 
:NOTE THAT BEFORE 





Se a | aa 


cl 


3 


Baba 


tetetstststetht=tats) 
WD ITU £W-O 


177764 
000017 
000720 


OC241e 
020060 
002416 


016564 


001526 
001S26 


46-SEP-76 16:29 PAGE 43 


CON. RESET 
DRY. RESET 

NC RO 

CMP #3,R0 

BNE 1$42 

INC Rl 
# es 

S aRKCS 
BPL 7§ 

PC, GTSRG 

ERROR 

INC RS 
BEQ chy 

INC RY 

INC R3 
BNE 1$ 
MOV #-14,R3 
BIC #17,R4 
ADD #20,R4 

INC Fl 
BNE 1§ 

INC FORIVE 
BNE 10 
ago - f CO, ORIVAD 
MOV DRHOLD, DRIVAD 
BR TST3 

’ JSR PC; ABRT 


; ERRESEERERAEESERALERSEERLEAE EERE REREELARERREREREREERERESEEELRES 
READ FORMAT OF ie Ae 

;*# IN THIS TE if THE HEADE 

;# & CHECKED IF THEY ARE CORRECT. 


HEYA NO RECIEVED, s ae cnn on DONE; IF me CORRECT 


D. 
F INHIBIT TYPEOUT’ tole tee 
. CTORS (PSUEDO-HE 
FIRST WORD OF EVERY SECTOR WAS liartte EN 


tf F 

:# fl 8 

;# MORE THAN S 

3% 4. Lf 1 

# NEXT C 

3% BOERS NOT RE 
i# CTOR #’S ee WING'S 
t# 

sé 

;# 






bee SST ia, san 
feb cil FRO ha oma WILL TED 
SESS Se SEIS Whe ad dc PE 












T WAS DONE 
RV RESET 


S WERE THERE 37 





eit 
a 
® OK 





;1F NOT GO BAK B FMT NXT CYL, SUR O 
;EVEN RKOSF ? 


{FORMAT ODD DRIVE OF F 
;RESTORE DRIVE ADOR 
; EXIT 











TSK 
FROM ALL_THE SECTORS ARE READ 
THE FOLLOWING IS THE 





ROL neaee are 





QR IS Ther ORTED: 
BAD DEADERS ARE 


° Me of bea WORDS OF 
REVIOUS r 









MRINOEC-11-D2RKL-¢ MACYIL1 €7(732) 16-SEP-76 16:29 PAGE 44 
Dz Pll T3 READ FORMAT OF THE DISK 


i tie He SE So Ses Ae fat Fr wpresiee cat Fauepd-neReer. 


3 WReKt CYL NOERCIN CIN IN LINE FS RE ORDER OF READING IS 
CYL 1 CYL31 
Oo cians 


+73 
8-5, ERCNTI LOW. LY SE (OF BAD HEADER 


KINO FROM S cM RS) 
st Ech ponte iat fe 2_"ERR’S 


iy Be, «G36 Teas) 3 8 READ 


G0 DO ORIVE RESET 


Re TRVe ; ALLOW § Re TRIED JF. F HORS READ WRONG 
RETRY! ;ALLOW TRIES FOR ‘SINS’ 


SOUTBUF , IRKBA HORS INTO, LOC STARTING AT THIS 
RS, JRKDA FR oh THI 


#-14, IRKWC "Be READ. 
#4$, $LPERR 4g MBs to apres OR LUPING ZN ERROR 
#2005, aRKCS :G0, RD FMT OF THIS CYLINDER 
ROY sWAIT FOR CNTRL RDY TO SET 

BIT #1000, IRKDS ;*SIN’ ERROR? 

BEQ gs NO, BRANCH 

JSR C, GETINE 

ERROR 11 s*SIN’ OCCURED WHEN ila RD FMT 


CON. RezEt 
DRV.RESET 


iat: 
& 
5 
BB 
Ss 
ss 
BS 
BS 
ES 
By 
BS 

i 
3 


& 
o 


, RETRY 
emp #2, RETRY! 
BNE 3 
ERCNTS 
16S 
IRKCS ;ERR’ IN RKCS? 
ee GTSRG iN, GET AKC R,0S,DA, CY 
iS" sccpeaan finte "SORE. aS Ene 
CON. RESET 0 90 cura we 


; L 

INC ERCNT2 Hang, IF TF none Se FIVE ER ERAGRS 
:SKI THIS T 

BEQ TST4 : EXIT 


SoBe EERE 3G 


rt 


ECT, 


ruru 
oo 
oO 
- 





Z 
e 


b 4 
: 


bo o - => 


PRUE CofOr- tad OO E WaT Bed TONE Cafu Cou Ob MOONE CofUr Coe000 IOUT -E LaFUS— ODD OA E core 
8 
& 


rururuorururururulrulrururufrorufurururururururururururorururururufrorrurururorururufururulrurorurururofururururururu 


O— b+ 0 0 — bb = 0+ 6 = 0 0 b= 8 6 = 0 0 0 8B - 0 8 0 8 0 0 + 0 = 0 0 0 0 - 0 0 -- 0 0" 0 02 0 0 0 0 -= = = bo 2 9 


wm 
™N 


FOY 


1 (732) _i6- 
pe ARG 2 e re Bex P-76 16:29 PAGE 45 


3 14$ 300 SET T UP TO RD FMT FROM NXT 
: CHECK NH T CORRECT HEADERS WERE RECVO. 
sSECTR 2 HAVING BAD HOR IS STORED ALONG 


007042 7$: ISR PC, CHKHDRS :GO CHECK IF CORRECT HEADERS WERE READ 
001776 TST INDX3 ;WAS THERE A MISC 
| BEQ 14 “tIF_NOT, GO set Sp te RB PMT 
:NXT CYL IN LINE 
004752 001110 MOV #2$, SLPERR 
; ERROR 13 sCORRECT HORS WERE NOT RECVD 
“FROM SECTRS AS TYPED 
; THE : YLINDER WAS FAD TWICE 
poABeS onusse2 ORB ReTRYe °° ~—OSTRIFD DING SmE CVE SCE 
NE 5° Re) ROT 4 RO aca 
YES, REPORT ERR 
po2002 3 INC ERCNT! sau Ou YS ERRORS. OF THE 
F MORE THAN 12 
sEXIT THIS test 
BEQ 16$ 
20S: SUEDO-HEADERS (FIRST WORD OF EVERY 
ee 
REAR, NOW. FOLLOWING WILL B  WyPD OUT: 
irc XPCT 0 PSUEDO-HDR, RECVD 
3 ote OUT" SW°IS SET THIS ENTIRE 
< : ADING G WILL BE ED 
020090 173754 BIT 820000, 3SWR INHIBIT T 
BNE 14$ YES. SMe ie, £0 LOWING & GO 
© RD FMT NXT CYL IN LINE 
177764 MOV #-14.R1 : READ FROM ae 
4 RS, JRKDA iF OM THIS 
025620 174554 MOV sOUTBUF , IRKBA sINTO Tie 
177777 174544 10%: MOV #-1, IRKNC *RD 1 WROD 
o00005 174534 MOV #5, IRKCS G0, RD 
CON. RDY : swat FOR CNTRL RDY 
174526 TST IRKCS ROR? 
S$ OCEED 
CON. RESET 0, Bice HE EROR 
BR 14S :EROR, so COULDN’T READ PSUEDO-HDRS 
15$: INC Rl sREAD FROM ALL 12 SECS 
BNE 10S IF NOT GO RD THE NXT ONE 
sTYPE OUT PSUEDO-HDRS CORRESPONDING TO 
*THE SECTORS WHICH GAVE BAD HEADERS 
‘TYPE: SEC #, EXPC P-HDR, RECVD P-HOR 
TYPE ;TYPE OUT 
_ MSGIL 


ef 27(732) 16-SEP-76 16:29 PAGE 46 
READ FORMAT OF THE DISK 


001564 aBUFR,R1 ;SEC #’S ARE STORED HERE 
; TYPE CR, LF 


Teae | 


(R1),Re 
#OUTBUF ,R3 O-HEADERS WHICH WE 


;PSUED 
sREAD ARE STORED HERE ~ 
Re ;IS THIS SEC # CORRESPONDING TO THE 


1 en NE 
R ;R@ CONTAINS THE SEC 8 
a 


o 
<£ 


(R1),-(SP) G0. TYPEOUT SEC _& GIVING 
;MISCOMPARISON OF HEADERS 


;SUPRES LDG 0’S 
sTYPE 2 BLANKS 


;G0 TYPE EXPCTD PSUEDO HEADER 


;TYPE 2 BLNKS 
;GO TYPE PSUEDO-HEADER RECVD 


+ TYPED OUT ALL SEC #’S IN ERROR. 
, 8177777 
sIF NOT GO BAK & TYPE NXT 


MSG? ; TYPE OUT PC 
§20$,-(SP) 


é 
5 
e 
e 
e 
2 
5 
e 
e 
5 
e 
e 
e 
e 
e 
e 
e 
2 
e 
2 
e 
e 
e 
e 
e 
e 
e 


0 Ob 6-+ B= b+ 0 b+ 8-2 = = + 0 B= 0 0 0 8 0 0 = 0 0 0 0 + 0 ho 


BB RR LO eSB VERIO BIa Ia Zn SSH GE 


; TYPE ROUTINE ENDS HERE 
;FIND OUT NXT TRAK TO B READ 
; FORMATTED a 


8 


oo0020 : ;SET ADRES FOR SUR O, NXT CYL_IN LINE 
001774 INDKe sREAD ALL 313 CYLINDERS (626 Tho }? 


9 s 
004746 1$ :tF NOT, GO BAK & READ NXT 
016564 16$: JSR PC, ABRT 


MT iii 
;ATEST 4 SEEK PATTERNS: O-312-O0-311-...,USING IMPLIED SEEK 


RRR Ros 


(ro OW VE 





DERKL 


Say er 2 


3 


Beeee 


Co} -OzRKL =< 


Pll 


SEEK PATER 


177465 
77764 
002 
002004 
002006 
014500 


001774 


001556 


04 


) 5 4 16:29 47 
: O-3le-O-31l-...,USING IMPLIED SEEK 


bee THREE 
:eTHIS SEEKS (IMPLIED SEEKS USING "READS’) IN THE 


oLtouing PATTER coves 0-1-0-0 


Saat eee cil a of edn 8 
Lt ara SOT ie dare 
logs [Fable ronad NaS ee PONE nd race 


Se FES ET CoP NOER THAT *SKE sac if THE HEADERS 
ae ED HE RS. ARO. THE ONES ARE ONE HORE TRY t 


irene DING | Ne IH (WRITING PSUEDO-HEADERS) SHOULD HAVE BEEN DONE BEFOREs#s# 


K IS reetly AGAIN BETWEEN THe CYLINOERS THAT GAVE RISE 


ued FOLLOWING if TION 1S TAK TAKEN WHEN THERE IS NO ’SKE’ OR *SIN’ BUT STILL THE 
uel ARE F They ‘ itt ie ExPeETED AND RECEIVED 

RS ARE REBORTED. ATED. S READ AND REPORT 
Shoat THe "The DON Bina ena dato} aon EET OR O OF THE DESTI 


s#UP TO 1 OF EACH KIND. (SIN BOER) ARE ALLOMED. 
To 1p CURS MORE tries’ THE ats eR 3 
cacenah ieuematransticintenstorenmiletietionstekiistinenan 


tity; 
CON. RESET ;G0 DO CONTROL RESET’: 
DRV. RESET G0 DO DRIVE RESET - 
CLR RY sELAG, CLR IF DOING, IMPLIED 
FROM *TNADR’ 
aly Tf "soins 9 ENADR? 
NOV 4-313 INDX2 :313 Spek "ba TERNS 
MOV RO-ERCNT! sALLOW ONLY 12 ERRORS 
MOV RO’ ERCNT2 OF THESE KINDS 
MOV RO; ERCNTS 
MOV #14S00,INADR §;"INADR’ CONTAINS THE INER 
CYL TO WHICH IMPLIED SEEK WILL 
BE DONE . 
1S: TST RY GOING IN OR OUT? 
BNE 2s GOING OUT, BRANCH 
MOV INADR, RS ‘SET CYL ADRES BITS FOR GOING IN 
BIS ORIVAD, RS >FORM DISK ADRES FOR INNER 


MAINDEC-11-DZRKL-C 
DZRKLC.P11 TY 


Se ER RUE R REDEEM IG WS | 


SeUeReDReS 


rururururururururururururururururury 


WWWWIWIWW) WLIW 
Ob 


rururu 
WO NOU£Wwil-O 


turururur 
4 4 Ww 
ftw furr 
wre 


O0S4S4 
00S4S6 


00S“62 
470 


ved 


005516 


000402 
013705 


012737 
137 


MACY11 27(732) 


001S26 


001552 


Oolgs4 


Ib-SEP-76 16:29 
SEEK PATTERNS: 0-312-0-311-.. 


15S: 


,104 


;CYLINDER 

sFORI eR S FOR OUTER 
ait aN TRIES WHEN 
ERRORS OCCUR 


;REPOSITION HEADS TO PRE-ERROR CYL 


‘FROM OM THIS C eA SEC 0 
eect elite BB ees FOR LUPING 


;G0, READ 


PAGE 4 

. USING EMPLIED SEEK 
3h 3$ 
MOV DRIVAD, RS 
mr ah 
i es 
RV RESET 
oe" PC, SBR1 
MO% #-1, IRKWC 
MOV 
MOV a Tau am 
MOV 
MOV #5, JRKCS 
CON. RDY 


MSG1 
AE TRY $REGY 
ADD ae, SREGH 


TST RETRY3 
BEQ ‘3 
INC TRY3 
BR 6$ 
INC ERCNT! 

19$ 
IMP EXT 
git 3 , ORKER 
JSR PC, ERR1 
MOV IRKER, SRE 
MOV JRKOS 
MOV RETRY! , SREGY 
ADD #3, SREGH 
TYPMSG .MSG2 
ERROR 14 


;WAIT FOR CNTRL RDY 
3$ WN RANE 


ives OP REKE urs A SIN 
SET, CYLS BETW’N WHICH SK WAS TRIED 


;SAVE TRY # ON ‘SIN’ 


PLIED Tee TRIED 
i hes ARE Gone BEFORE ray 


co RETR es 


bo 2nd TRY 
Rae ESS THAN 12 ERORS OF THIS TYPE 
SKIP THIS TEST 
sEXIT THis TEST 


; SKE? 


GO GET 2 CYL NOS. BETWEEN WHICH 
IMPLIED SEEK WAS DONE 


;GET TRY # ON *SKE’ 
;GO0 PRINT *SKE’ 


;IMPLIED SEEK WAS TRIED FROM 
;*CYLA’ TO "CYLB’ (INDICATED 
;IN EROR MESAGE); *SKE’ OCCURRED. 


JO4 


MAINDEC-11-DZRKL-C MACY11 27(732) 16-SEP-76 16:29 PAGE 49 
DZRKLC.P11 TY SEEK PATTERNS: O-31e-0-311-...,USING IMPLIED SEEK 


00S726 104414 CON. RESET 
004737 : JSR PC, SBRe 


ATOM e TRIECUFOR SKE 


#15, aRKCS 


‘BRANCH, IF THIS WAS OND TRY 
; THERE WAS SKE ON DOING IMPLIED 
:SEEK TO "CYL B’. THEN HORS WERE 
READ FROM CYL 8, WRONG HORS 
WAIT FOR PREVIOUS DRIVE RESET 
FC, SBRL GO, REPOSITION HEADS 


;2ND TRY, SKE THIS TIME ALSO. BUT 
: HDRS CORRECTLY FROM 


104417 : TYPMSG 
sREAD CORRECTLY 


000402 BR 


s2ND TRY, SKE THIS TIME ALSO. 
104416 :  MESAGE "READ HDRS FROM CYL THAT 
GAVE SKE, THEY WERE INCORRECT. 


104422 : RESDON sHATT FOR PREVIOUS DRIVE RESET 
;T0 BE DONE 


7 INC ERCNT2 ;ALLOW ONLY LESS THAN 10 ERRORS OF 
soon :THIS TYPE (SKE) 











10 
11 


Hat at at ett ot ot 
—-OWONTUWCWY 





e4eS 


neo 


SEEGER BEE 


8 
o 


1 


£52 BRR B 


re Bema & 


oe oe 
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OZRKLC.P11 T4 


001002 
000137 


MACYI1 27(732) 
SEEK PATTERNS: 
006376 
006310 
005440 
001774 
000040 O015SE 
005440 
oos462 001110 
025620 
UR LIT 
bei 73 
001166 
025620 901170 
001552 


005470 


006334 


7 001776 


002155 


16-SEP-76 16:29 PAGE SO 
0-312-0-311-...,USING IMPLIED SEEK 
BNE 17 
IMP EXxT4 sEXIT THIS TEST IF MORE 
178: TST RY ;WENT LAST TIME IN OR OUT? 
BNE 19$ i 
TST R3 WERE HORS CORRECT? 
BNE 19 iN 
;YES 
188: we RY 
PC, SBRI G0 POSITION HEADS BAK ON INNER 
ee IMP 1$ GO BAK & SEEK OUT NOW 
19$: INC INDX2 ;ALL SEEK PATTERNS DONE? 
BEQ TSTS + EXIT 
SUB #40, INADR Et BODRESS FOR THE NXT 
-CLR RY s INDICATE THAT NOW SEEK IS GOING 
IMP 1$ 60 & SEEK IN TO ’INADR’ 
20: ;IF THERE WAS NO SIN OR SKE 
; ’ NTER HERE 
MOV #3$, SLPERK - RETURN ADRES FOR LUPING | 
cup RS OUTBUF oakecr PSUEDO-HEADER READ? 
MOV RETRY ,§ $REGH OEP’ The “es 
ADD 
ISR PC? ERRI :GO GET CYL #’°S BETW’N 
sHHICH IMPLIED SEEK (READ) 
MOV 5. SREG2 :GET EXPC TD PSUEDO-HOR 
MOV aUteLF, $REG3 *GET PSUEDO-HDR RECVD 
ERROR ; IMPLIED SEEK FROM CYLA TO CYLB WAS DONE. 
READ PSELIDO- R OF SEC 0, 
iGy B (IN EROR MESAGE), BUT 
WRONG PSEUDO-HEADER WAS 
* RECEIVED 
INC —_ RETRY2 
BEQ ~Ssé‘s2IS 
IMP 133 
218: JSR PC, SBR2 G0 READ HEADERS (12) FROM 
:THIS CYLINDER, & CHECK THEM. 
: IF NISCONP ISON INDX3 WILL 
TST INDX3 : 
BNE 2g 
TYPMSG MSGS ;WRONG PSUEDO-HDR WAS READ 


KO4 










































;BUT WHEN HORS WERE READ 





DZRKLC.P11 


2492 006334 





NAINDEC-11-DZRKL-C 


T4 


012700 
012701 


MACYL1 27(732) 
SEEK PATTERNS: 


005440 


177764 
0eS620 


001166 


173440 
173424 







LOY 


16-SEP-76 16:29 PAGE S1 
0-312-0-311-...,USING IMPLIED SEEK 
sFROM THE SAME CYLINDER, THEY 
BR 238 WERE CORRECT 
22$:  MESAGE ,15 ; WRONG DO-HOR WAS READ 
‘Ten i f SUES (IN ERROR ho Foch Tie 
Sar CYLINDER THEY HERE” 
33: tt RS, RO i 
. the RS ane Rex? SeeTOR Ci) 
MOV ROUTE hati 
MOV = (it oe 
MOV 
CONROY 
JSR Be acre :GO GET CYL # & STORE IT IN SREGO 
MOV RO SREGL GET EXPCT PSUEDO-HDR FROM SEC 1 
MOV OUTBUF , SREG2 
ee oH SER OOO SHEET uns Crab’ tHe ExeCTD 
*& RECVD Bata LORDS ARE RESORTED. 
INC ERCNT3 ALLOW ONLY LESS THAN 10 ERRORS 
OF THIS TYPE (WRONG PS-HDRS) 
BEQ EXTY 
24g: TST RY ;SEEKED IN OR guT LAST TIME? 
BNE 19 iF our, » BO SEE K NXT rphner CYL 
SEEK 
INC RY Hotcare1 Tha “SEEK OUT (0) 
IMP 1$ * WILL 
; THIS ROUTINE IS USED IN THIS TEST ONLY. 
sRu0 INDICATES SEEK BEING DONE FROM 
jRM=L INDICATES SEEK BEING DONE FROM 
SINNER CYL 10 0. THIS ROUTINE POSITIONS 
THE HEADS ON 'INADR? CYL IF R4=1 
SBRI: TST RY 
REQ 1$ 
MOV INADR, IRKDA 
MOV #11, 3RKCS 
TST. RWS 
1S: RTS PC 
THs ROUTINE. Is USED IN THIS TEST 
2 HEADER R 
é ADRES a3 if RS. THEN IT GHECKS 
CTED HEADER IS RECEIVED 
Het S NOT, INDX3 IS INCREMENTED INDICATING 
Hel Ere OR 
SBR2: MOV #-14, RO 
MOV #OUTBUF , Ri 















MAT Ce} Oem. S weevil 6c 73) 16-SEP-76 16:29 PAGE Se 
DZRKLC.P11 SEEK PATT : O-312-0-311-...,USING IMPLIED SEEK 






10077 173406 MOV RO, IRKWC READ 12 HORS 
: Boe 350 10177 173404 MOV R1; IRKBA, qa ek BORE 
4 010577 1734 MOV JRKDA CYLINDER 
006360 012777 O02005 173366 MOV #2005, IRKCS 
006266 104420 , CON. RDY 






006370 004737 007042 JSR PC, CHKHDRS ;G0 CHECK IF CORRECT HEADERS WERE READ 


or 
3 












B 006374 000207 RTS P’ EXIT 

2504 006376 004737 O16564 EXT4: JSR PC, ABRT 

2506 brecT & PERFORM CONVERGING DIVERGING (IMPLIED) ceEKa 

2507 t ETEST 5 PERF NVERGING-DIVERGING (IMPLIED) SEEKS 

2508 ;#THIS TEST CERF ORS B ONVERGING- DIVERG GING SEEK PATTERN 

2599 :#USING IMPLIED SEEK eREAD FORMAT). THE SEEK SEQUENCE IS: 

2510 s#0-Se-1-311-2-310-3-307—-——-—-310-2-311-1 -312 

251 ALL READ FORMATS ARE DONE FROM SURF 

251 #THE CYLINDER ADDRESSES BETWEEN WHICH THE IMPLIED SEEK IS 

ge13 pos yt M ARE E CONTAINED IN TOUTAOR & "INADR’. sant SIN” OCCURS 

Setd *#HEADERS AN iS REPOR iE REPORTER AND ND A RETAY IS ‘ 1S CHOnE NOTE THAT IF 

2516 *#ALL THE 12 HEADERS ARE INCORRECT, IT COULD atten THAT THE HEADS 

2517 ?#COULD NOT POSITION CORRECTLY. TAIS WOUL BE CONF TRNED IF IN 

2518 j HPREV Tous TEST SBR HEADERS WERE NO T RECIEVED FRO FROM THE SAME 

e193 = #CYL Ie rea CYLINDER RAVE B N ALL THE PREVIOUS 

20 etesTS. Te, PROBLEM COULD vs DIFFERENT 

2521 *#MAXIMUM 12 ERRORS OF ANY KIND ARE ALLOWED. 

2522 **IF MORE 12 ERRORS OCCUR THE TEST IS ABORT 

2523 sansa {tle ROSE, THAN te ERRORS OCCUR THE TEST 1S ABORTED. 

2524 006402 OD0004 $815: SCOP 

2525 006404 104414 CON. RESET -  $G0,D0 CONTROL RESET 

ecb 006408 104415 DRV.RESET :G0,D0 DRIVE RESET 

2528 00sv04 CLR ms ;(R4)=0 SEEKING FROM ’OUTADR’ TO *INADR’ 
*(R4)=1 SEEKING FROM *INADR’ TO *OUTADR’ 








012737 177466 001774 MOV #-312, INDX2 ;SET COUNT FOR DOINC 312 TIMES 








012700 177764 MOV 
016037 Oog2002 MOV —-RO, ERCNT ;ALLOW ONLY 12 ERRORS 
010937 002004 MOV -RO,ERCNT2 
005037 001560 CLR OUTADR INITIALIZE *QUTADR’_T0_0 
012737 O14500 o015S6 MOV  #14SO0,INADR INITIALIZE *INADR’ TO 312 
005704 iS: ST RY sGOING IN OR QUT? 
001905 BNE 2S GOING OUT, BRANC 

13705 001556 MOV  _INADR,RS eT CyL_-ARES BITS FOR GOING IN 
053705 001526 BIS  ORTVAD, RS ;FORM DISK ADRES FOR INNER CYLINDER 
000404 BR = s«3$ i 
013705 001560 25: MOY —QUTADR, RS ;SET CYL ADRES BITS FOR GOING OUT 
053705 001526 BIS DRIVAD,R5 ;FORM DISK ADRES FOR GOING OUT 








005037 001552 3$: CLR RETRY2 ;ALLOW 2 RETRIES 
012737 177777 OOiSSO 4S: MOV #-1,RETRY1 WHEN ERRORS OCCUR 





MAINDEC-11-DZRKL-C 
OZRKLC.P11 


006506 
510 
if 

i 


00&S20 


006650 
006654 


TS 

000404 

104414 
7 


012777 
10577 


1 
012737 
012777 
104420 


104417 
104014 


0S237 
152? 


010577 
012777 
104421 
000424 
004737 
012737 
00 
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NO4. 


16-SEP-76 16:29 


PAGE $3 
PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 


006510 
002005 


001900 
173160 
173150 
001550 
000002 
016112 
002100 


001550 
001550 


002002 


007042 


006500 
001776 


001552 


S$: 


173230 7%: 


173220 
001110 


173200 


173164 


001172 
001172 


63: 


173064 


001110 


BR 7$ 
CON. RESET 


.RESE 

a bc, SBR3 
MOV #-14, ORKWC 
NOY Mat JRKBA 
MOV #5$, SLPERR 
MOV #2005, IRKCS 
CON. RDY 
BIT #1000, JRKDS 
BEQ $ 
MOV JRKER, SREG2 
MOV JRKDS. SREGS 
MOV RETRY! SREGY 
ADD #2, SREGY 
JSR PC; ERR 
TYPMSG ,MSG1 

ROR 1¥ 
TST RETRY! 
BEQ 
INC RETRY! 
BR co 
CON. RESET 
DRV.RESET 
INC ERCNTI 
BEQ EXTS 
MOV RS, JRKDA 
MOV #11, aRKCS 
TST. RWS 
BR 11 
JSR PC, CHKHDRS 
MOV #4$, SLPERR 
TST INDX3 
BEQ 11$ 
ERROR 20 
INC RETRY 


;GO REPOSITION HEADS 
L_HORS FROM pas CYLINDER 


HERON Tie GI. gee 0 


ee ET ORE TURN ADRES FOR LOOPING ON ERROR 
;READ FRMAT,GO 
;WAIT FOR CONTRL RDY 


GET RETRY # 
;GET CYL #’S BELOW ’N WHICH 
sFEEK WAS TRIED 
TYPE ’SIN’ 
SIN’ OCCURRED ON DOING prt iD 
SEEK FROM *CYLA’ TO *CYLB’ CIN 
sEROR MESAGE). 
; DONE 2 TRIES? 
BRANCH 


:NO, "RETRY 


ALLOW W LESS THAN 12 ERORS OF THE 

IF ONORE SKIP THIS TEST 

:SIN OCCURED WHEN GOING TO CYL (IN 

;RS). A DRVE RESET HAS BEEN DONE, 

NOW TRY POSITIONING HEADS ON 

THAT CYL. 

;SET CYL ADRES 

; SEEK, GO 

ia NO SIN, ENTER HERE 
CHECK fF CORRECT HEADERS WERE READ 


;SET LF ADDRESS 
; NO, 8 Re, A BAD HOR? 


SHRONG HEADERS SHERE READ FROM 
ria ean Fran Nera th “CYL 





MATNOEC@11-DORKL=¢ MACY12 E7(733)_ 16-SEP-76 16:29 PAGE S4 
DORKLE.P Ld TS PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 


2508 O06722 O22e737 N00002 oD1Ss2 CMP #2, RETRY2 

2607 006730 001263 BNE 4§ GO TRY 2ND TIME 

3 Bet $e. 002004 Ine ERENT? ALLOW ONLY 12 ERRORS 
i0 6? O13? 0o7134 IMP «ETS sIF MORE, EXIT THIS TEST 
618» DOTY g0s704 118: TST RY ;GOING WHICH WAY? 
613 06746 001008 BNE 128 :* TNADR’ 19 "OUTAOR’, BRANCH 
2514 *OUTADR’ TO *INAOR’ 
26i5 906750 ocse04 INC RY SINDICATE THAT NXT TIME GOING 
2616 tFROM INADR’ TO ‘OUTADR’ 
S617 goe7s2 2737 OOCo4O o01S60 ADD #40, OUTADR : INCREMENT S‘Shattes Se ADRES 
Seis Ooe7eD D00LR7 O0e44E IMP OLS '60 BAK & DO 
313 | “FROM ’INADR’ mea 
€ = 
2621 CO6764 OOSOO4 128: CLR RY s3NoICA TE ae Nr, TIME GOING 
SES . 777 40 OO1SSS © Sus 840, INADR iDecRerENT YL 5 
2624 Roe 8s ARES ? af ? INC INDX2 #00 NE ALL TLPOER ROPES on 
2626 007900 901457 80 TSTS IF YES, EXIT 

000137 one44 IMP 1$ sIF NOT, GO BAK 8 DO_IMPLIED 


:SEEK FROM "OUTADR’ TO *INAOR’ 
sTHIS SUBROUTINE IS ENTERED AFTER A ‘SIN’ ERROR OCCURED ON GOING 


eae 


f 


2632 STEYR? TO. "CYLS" BS INDICATED IN THE ERROR MESSAE, BEFORE RETRYING THE 
2633 p05 HA T0-BE POSITIONED BACK TO "CYLA’. NOTE THAT A DRIVE Rese? 
2634 ;WAS DONE TO CLEAR SIN, 

2635 R4S0, INDICATES SEEK 15 BEING DONE FROM -OUTADR’ CYLINDER TO.» INAOR*CYLINOER. 
2636 :R4=1) INDICATES THAT SEEK IS BEING DONE FROM “INADR® TO *OUTAD 

627 ibe: sGOING WHICH 

2638 007010 001404 0 Os FP TRom *OuTADR' TO "INAOR", BRANCH. 
2639 067012 913777 OO1SS& 172742 SOV NAO, BRKOA 

2640 907020 000403 - BR : 

eeu. DOrGee O13777 Oo1seO i7e73e 1s: Nov © OUTADR, RKDA 

ee42 007030 912777 OOd0i1 i7e7le 28: MOV 811, aRKCS 

2643 007036 10442: TST.RWS 

2644 007040 000207 } RTS PC 

go45 

fy 

2648 7 STUTS-RCUTINE CHECKS THAT THE HEADERS READ PREVIOUSLY WERE CORRECT. 
ze48 SIF NOT, THE BAD HEADERS AND THE SECTOR #°S FROM WHICH THEY WERE READ 
2650 TARE STORED. 

go6! .  $ON ENTRY: 

26 :RS_CONTAINS DISK ADORESS FROM WHERE HEADERS WERE READ. 

eos: ;QUTBUF ~ 12 HERORERS READ PREVIOUSLY ARE STORED STARTING "OUTBUF”. 
sree ;INDX3=0, IF THE HEADERS WERE CORRECT 

e6s6 | ;INDX3=1, IF THE HEADERS WERE INCORRECT 

2657 :BUFR - SECTOR #’S GIVING SAD HERDRERS one See St STARTING AT “BUFR? 
e658 ;BUFR1 - BAD HEADERS FOR THE ABOVE SE STORED STARTING BUFRI*. 
e553 ;THE BAD SECTOR TABLE IS TERMINATED BY Rs 

rd 

2661 007042 cOSO00 CHKHORS: CLR = RO sINITIALIZE FOR 14 HORS 








SA PE ag PERE ARM CONERGINGSBIVERRING LERPL igs SEEKS 


wOUTBUE RI 
SBUFRI R3 


a #180037, ScDA0R 


PRESSE 


ae (Rl) 


Rt) (R3)4 ‘SAVE BAD HOR 
, (R24 :SAVE BAD SECTR 8 


8177777, (R2) ;PUT TERMINATR ON SECTR TABLE 
INOX3 ise ncAenT Pint at BAD HOR 
(R1l)+ nS T HOR 


RO 
000014 C gi, RO 
9 


puoeoeiararaty 
“fotat tedede: 
Sls fas 


: IF es LUP BAK 


2 


O16564 ” “EXTS: PC, ABRT 


“J 
GJ 
~N 


[reognseusnnnbusseyesoapevesetensnessss z ae re ee 
:ATEST 6 :¥IN Turs Test BI FFERENT ATT ATTERNS ARE WRITTEN ON THE ENTIRE DISK. 768 
: #HORDS {3 SECT a te rine. tS ry 708 HOES LONG 4 


VE WH Ma ONE 
Hause. 3 s HVE, SEEN USE re DIRK, fren BUFFER GETS FILLED UP WITH 
;#PATTERNS TO BE USED xT! Th S OVERLAPPING IS DONE TO SAVE TIME. 


;*THREE PATTERN-GENERATOR SUB-ROUTINES ARE USED: 
# PTGENO  @. PTGENI PT ._ PTGENS 
THESE peer ROUTINES os CALLE aus ° CY : 
PTGENO-PTGEN1-PTGEN-PTGEN3-PTGENO-PTGEN1 
ine FOLLOWING ORDER IS MAINTAINED rN WRITING BL OeKS (EACH 
:#3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS: 


p#CYL SECTORS CYL_ SECTORS SECTORS CYL 
pour tne” “sur T 


SoeRReR eR 


2630 
e691 
2692 
e633 
2634 
2635 
eb96 
2697 
e698 
2633 
2700 
2701 

Ge 


VUuy 
eon 


SiS 
sm 


8 IS DONE TO 
CTORS) IS WRITTEN. 
OTHER MEMORY RDDRESS 


THE FIRST 768 WORDS LONG SUFFER. 
SECOND 768 WORDS LONG BUFFER. 


arr YOU WANT TO WRITE YOUR OWN PATTERNS USING PATTERN GENERATOR *PTGENO’ 
;#CHANGE ’PTRNO1’ AND "PTRNO2’ TO THE PATTERNS YOU WANT. 


;#70 WRITE THE SAME TWO (OR ONE) PATTERNS ON THE ENTIRE DISK CHANGE 


RERERRRSE EE 
aS yy a 
NOUNS WTO 





MAI CSL -DZRKL = MACYL1 27(732) 16-SEP-16 16:29 PAGE Sb 
DZRKLE.P11 TS Waite PATTERNS on THE DISK 

71 aL aT N ;par 9 ier TART S OF PAT-GENERATOR 0 
a‘ Savi -BaTd: 19 BTGNG. ThE STRING SEBREES Pf cRRREEDR 
720 *PATS’ TO ’PT S OF PAT-GENERATOR 0 
Tel es nycenehenesceEnO REESE HELO HELE SE EEESEE PEST EET EPE EERE EET 

ee 907140 900004 tSTs: SCOPE 

723 OO7142 Ole73? 177764 oOd2002 MOV 8-14, ERCNT : 

724 O07] 12737 177784 002004 MOV #-14 sERCNTE 

e725 07 é 12732 477152 001772 e Mov a-£28, INDX ie COUNT FO FOR 313%2 TRACKS 

‘ ‘= 

g2s8 Spots Beeps? Bata CLR Burt et Cte FLAG a 

2? REOVE FLAGS WHEN SET 
ece3 aN ioe TO BE USED 
2731 OO7174% 013737 001526 901730 MOV DRIVAD, DSKADR DRIVE is RE 

732 007202 O12737 O017le 001722 MOV #PATO, PRSPAT sn A pT 0 THE Brest 

q 

2734 007210 O04737 007626 JSR GETBUF 

5538 14 1723 17 001726 MOV aptseat PGSUBR 

1? ge C, aPGSUBR 60 GENERATE PATRNS FOR 

2737 :3 SECTOR (400X3) 

2738 007226 opso0s 1$: CLR RS, :IN TrBL Ze COUNT FOR 4 BLOCKS 
2739 007236 737 001706 2s: TST SUFLGO “FIND OUT WHICH 

2740 007234 100407 fs BMI 3$ "FOR WRITING ON D 

2741 007236 613727 001704 001732 MOV PBUF1,BUSADR  § ;USE ‘é 1’ FOR T 

2742 OR T INDICATED BY THe USER 
2743 907244 052737 cO0200 061710 BIS #BIT7,BUFLG1 § :SET FLAG TO INDICAT 

2744 :WRTING ON DSK WILL 8 OONE FROM 
2745 :THIS BUFR (BUF 1) 

a 007252 900406 38 13$ 

2748 007254 013737 001702 001732 3$: MOV PBUFO,BUSADR § ;USE "IOBUFO’ FOR TRANSFER 

2749 :OR THE ONE INDICATED BY THE USER 
sree 007262 052737 000200 001706 BIS — #BIT7,BUFLGO §;INDICATE THAT ’IOBUFO’ WILL 
2752 *B USED FOR WRTING ON DISK 

2753 007270 012737 007276 001110 13%: . Mov #4$, SLPERR 

2754 007276 013777 001730 172456 4S: MOV DSKADR,aRKDA = s SET _RKDA 

2755 007304 913777 001732 172446 MOV BUSADR, JRKBA 

2756 007312 012777 176490 172436 MOV #-1400" IRKWC 

3757 007320 012777 000003 172426 MOV #3, aRKCS ;WRITE THE 4 SECTORS ON 

2759 013727 001722 001724 MOV PRSPAT,NXTPAT WHILE THE PATRNS 8 g ING WRITTEN 
2760 ree 333955 001722 001720 CMP PRSPAT; SPATS $60 NERA ATE THE 

2761 097342 001004 BNE 0.8 We 

27 p07 sa 012737 001712 001724 MOV #PATO, NXTPAT ie HEE ERATING PATRNS IN THIS 
z 7352 O004 BR 6$ Y “PATO"-"PAT1"-"PAT2"-"PAT3"="PATO"= 
2764 007354 062737 O00002 001724 SS: ADD ie. Tee 

2765 007362 004737 007626 &$: ISR 

2766 007366 017737 172332 001726 MOV Shia Po arp PGSUBR 

2767 007374 004777 172326 JSR GO GENERATE THESE PATRNS. 

2768 :(3 X 400) WORDS 

2769 007400 104420 CON. RDY 

2770 O07402e O32 140000 172344 BIT #140000,3RKCS ;ANY ERROR? 

771 00741 Dolai BEG 12$ :GET RKCS,ER,OS,DA 

007412 604737 015754 SR PC, GTYRG 


2773 O07416 104021 ERROR 1 ;ERROR ON DOING WRITE 



















EOS 
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DZRKLC.PL) Té WRITE PATTERNS ON THE DISK 
4 ON. RESET CLEAR IT 
a 74 po2002 in ie ete 12 ERRORS AT MOST 
rat 10814 IMP xT sIF MORE, EXIT 
. Pu ef l 172306 128: BIT ao! 9,aRKDS . ;SIN, ON DOING WRITE? 
as 
se iste 015754 ie eS. GTYRG 
1 607450 2 SIN ERROR ON DOING WRITE 
ca) fine [ils ee 
002004 ERCNT2 sALLOW 12 ERRORS AT MOST 
e785 007462 301902 


007464 000137 010214 ine Ete 


FI T WHICH BUFFER IS 
70 1 001708 7S: TSTB UFLGO Rs. ViduS DSR WRITE DONE 
7474 198083 : ey Be SUSING SERB? 
7% 001706 CLR SUFLGO YES LSP FLAG INDICATING IT’S 
907502 o0040¢ 95 
007504 001710 g$: BR BUFLG1 rR ake INDICATING BUFR 
Coi722 9s: MOV NXTPAT,PRSPAT  ;’PRSPAT’ S PATRNS WILL BE USED 


ON NEXT WR 
MOV Be FORM SEC # : BE USED NXT TIME 
010210 MOVB SESPTR(RO),RO GET SEC # 
? 001730 108: bis Ro, MASK SECTOR 8} iS on DSK-ADRES 
+ : SEC 


CTRS (3 BLOCKS)? 
coco CMP #4,RS 


0 
? 
001231 BNE es ‘BO Tuts SURE OCS IF NOT, GO 
032737 7000: 001772 BIT og1 VO, BOKE ;WHICH SURFACE WAS DONE, 0 OR 1? 


Cais ua PASSE SENOS EPS 
: 


. +6 
Bier? Boone) 017 arc a $60 To SURO, NEXT CYLINDER 
001730 5, 
30 BACK AND D0 WRITE 


IMP 
118: ROX ;COUNT OF TRACKS 
001730 ars 20, DSKADR ;SET BIT POR SUR 1 
JMP ie ;G0, WRITE PATRNS ON SURFACE 1 


iSTels Role FINQs OUT He WIC H SUFFER (10 ( BUFO, IOBUF1) OR ONE OF 
ere |e pr re BT SETS Ue PR FLA INDICATING THAT 


IS ST 


000137 007226 


(apebebepasoposasas 
0 = 0 0 6 8 0 
WOnNMUIS wrueH-O 


07626 005737 001706 GETBUF : IST LGO A Bee AVAILABLE FOR USE? 
34 ? 00 901710 BIS a6 1715, BUFLGI RBUFR 1. INDICATE SO. 
eH 1 3237 1704 001744 HOY PBUFL, ene TING ADRES OF SUFRI 


aii 


001706 1S: #BITIS,BUFLGO ;INDICATED, USING BUF 0 


it 
42 
w 
os 
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FOS 


16-SEP-76 16:29 PAGE S8 


WRITE PATTERNS ON THE DISK 


001702 901744 


MOV PBUFO, BUFNO ;SAVE STARTING ADRES OF BUFR O 
RTS PC : RETURN 

2% FRE Bourne GENERATES A 768 (3X256) WORDS LONG 
tOUFE R CON ONTAINING T aa PATTERNS 


do Bb oF (COMPLEMENT OF ABOVE) 


EQ GaN USE OTM re tieh 1S comp pent 


PTGENO: MOV Pring *GET STARTING ADRES OF BUFR 
MOV a: aft ;GET PATRN TO BE RATED 
:IN THE FIRST 4OO WORD BLOCK 
1S: MOV peat GENERATE THE FIRST BLOCK 
INC ‘WITH "PATOL? PATRN 
BNE l ALL DONE? 
MOV #-400,Re 
COM Rl sCOMPLEMENT ’PATO1’ PATAN 
2s: MOV R1, (RO)+ ;GENERATE 2ND BLOCK WITH 
INC :’PATO1’S COMPLEMENT PATRN 
BNE 25 sALL DONE? 
MOV #-400 e 
MOV PTRNOD GET POTRN 19 BE GENERATED 
38: MOV R1, (RO)+ BLOCK USING 
See a, 
INC R2 
BNE 3$ ;ALL DONE? 
RTS PC : RETURN 
PTRNOL: 125252 sCHANGE THESE LOCATIONS IF 
PTRNO2: 010421 :YOU WANT ANY OTHER PATTERNS 


; #PTGENL 
;*#THIS ROUTINE GENERATES A 768 (3xX256) Bont 
;*LONG BUFFER CONTAINING THE FOLLOWING PATTERNS: 


;#FIRST BLOCK-2S56 WORDS 000001 FILL 1°S 
000003 


;* 

i | 177777 

;*#SECOND BLOCK 177776 FILL O°S 
% every 

i, Goooco 


FLOAT A 1 














at ei 16-SEP-76 16:29 PAGE S9 
OZRKLC.P ON THE DISK 


;®*BUFNO’ CONTAINS THE STARTING ADDRESS OF THE 
te ; *BUFFER. 


PTGENI: Moy ire, e s INITIALIZE PATRNS 
ois STARTING ADRES OF BUFR 
ree no, RO 


BE fy a ae Stree per FIRS 
SEC | 


dada 
G) 


Be 


;BLOCK USING FIL 1’s” 


Sol 

ae 
OQ 
eb 2 


;ALL DONE? 
ae0 Re 


Risfhore §—ERREARNEEA Bex 


USING “FILL 0°S” 


: 


s DONE? 


erie ener erence tt 


;SET_COUN 
HINITIALIZE pe 

NERATE THE 30. BLOCK 
:gSING LOAT A 1 


; DONE? 
; RETURN 


23 
23 
§3 
23 
23 
23 
eg 
23 
29 


0 0 OO 0 
WONMWUL WHO 


PTGEN2 
THIS ROUTINE GENERATES A 769 (3X256) WORDS L 
;#BUFFER CONTRINING THE FOLLOWING PATTERNS: 


j #FIRST BLOCK-256 WORDS 000000 COUNT PATRN-LOWER BYTE 
000001 0-377 
nooode 
000377 


990098 COUNT PATRN-HIGHER BYTE 
001000 


i77400 


italien ils 


ied 


O00000 COUNT PATRN-HIGHER & LOWER BYTE 
g00401 0-377, 0-377 


177777 
:#'BUFNO’ CONTAINS THE STARTING ADDRESS OF THE BUFFER. 


agg 





mere eet ) of te ik 16:29 PAGE 60 





PTGEN2: CLR = RI s INITIALIZE PATRN 
001744 RO 
as: Aly. RROD GENERATE 1ST BLOCK USING 
INCB ORL ;USING ° LOWER BYTE’ 
47 BNE «18 ; DONE? 
2s: AVL (RODS RA Ok 
ooo4co "AOD ai iUeING TEoGNT OP HIGHER BYTE" 
l ’ r 
38: a RI, (RO)+ ;GENERATE 3RD BLOCK USING 
00040! ADD «=—s«#401, RI ;*COUNT UP HIGHER 8 LOWER BYTE’ 
Ss Rs Pe ah 
= iATHTS ROUT! RATES A 768. (3X256) WORDS LONG 
SSE SEBUPPER CONTAINING THE FOLLOWING PATTERNS: 
;#FIRST BLOCK OF 256 WORDS: 167356 (COMPLEMENT OF 010421) 
; #SEC Ock FLOAT A 
x¥SECOND BL 177776 FL 0 
£3 ; won 
2971 ;#THIRD BLOCK 900377 COUNT UP HIGHER BYTE 0-377 
Be rt COUNT DOWN LOWER BYTE 377-0 
eam i i77400 
;#’BUFNO’ CONTAINS THE STARTING ADDRESS OF THE BUFFER. 
78 010116 013700 001744 PTGEN3: MOV —- BUFNO, RO 
iOlee. Oierde 177a0g MOV = 8-400: R2 
19188 13701 007780 MOV  PTRNO2, Ri ;GET PATTERN 
1 0101 10} COM RL COMPLEMENT *PATO2’ PATRN 
10134 9101 4S: MOV RI, (RO+ ;GENERATE 1ST BLOCK 
10 35 Inc Re 
10140 00137 4§ ;ALL DONE? 
. ;2ND BLOCK 
2987 O10142 012702 177760 MOV #20, Re 
10146 I 7$: SEC 
10:80 Ole7Oh 177776 MOV  -#177776,R1 
10154 0101 BS: MOV RI, (RO)+ 
1 O10156 O06101 ROL sR 
10169 103778 BcS 8S 
ess Bioled 01 MOS sALL DONE” © 
2996 i3RD BLOCK 
2997 010166 012701 


000377 MOV #377 ,R1 












10S 
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: WRITE PATTERNS ON THE DISK 


oe. ° ee sr 
10204 
10206 


z 
8 






oo 
wi 
ele 





wl 1 
uit AR faMe 


;SECTOR POINTER TABLE. DATA TRANSFERS ARE DONE IN BLOCKS (3 SECTORS 
iEACH) IN, THE CYCLIC ORDER: O-2, 6-10, 3-5, 11-13, o-e, AND SO ON. 








-BYT 
018564 EXT&: JSR PC, ABRT 





it » ii 
737 


WWE O. 
oOo 
- 
fe 
i 
£ 


S8se 


5 RREREEERRR AREER EAE EEE EERE EE EERE EERE REALE REEL E REE REET REESE 
S ATEST ? READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS : 


;###8TEST & (WRITING PATTERNS ON DISK) SHOULD BE DOPE BEFORE DOING#### 
#444 THIS TEST. 288 


;#IN THIS TEST THE PATTERNS THAT WERE WRITTEN BEF (IN THE 


pea Sainte a F SHPARISON 1s FAKING Ree ON OVERLAPPING 


o> + 6- > <->) 6-6 - pp 





; IMILIAR MANNER. 

;#THE FOLLOWING IS A DE I ORS ARE HANDLED. 
sate A 1PPED. OR "HE’ OCCURS IT Feet ine D AND THAT BLOCK 
;#IS SKI . cunt IS STAGE OF 


ow 
© 
za 
ms 
uv 
14 


STING THESE ERRORS SHOULD NO 


j BNORMALL Y 
:£IF cxSun ERROR ONT’ 
Ler ool iia! REESE STP RTEDS De The SECTOR GIVING 
ar ake 354 TRIES, Re Bre 
*#THE ERROR peel Srebreh ¥9 AND re sheet 
:#0F THE SECT KED PBR” SE. IF 
s#AGAIN $0 SOME 0 OTHER FOR a6 oe SE. REPORTING AND RETRIES 


RES erin CpaerE GRTA RISROMPARSON 
HELySREDce ATER Te MMOLE BLOCK Hee BEEN CHEERED Sie pare 


Wier tales ORTED. THEN THE BLOCK TS READ AGAIN IN ALL 
ee ne c PERISON (SOF THARE tale GOING ON, THE “WRITE | 
FE RONAPERRES 3 7WCEROR’. WRITE CHE ay OF the Ce TOR 
AAT oA WCE IS DONE AGAIN. edt Akt IHRE S ARE DONE. 
jANOTE THA EVERY WCE IS REPORTED. IF ALL THE 4 SECTOR OF 
#A BLOCK GAVE WCE’S, ALL 4 WILL BE REPORTED AND RETRIED. 


;*DEPENDING ON THE NATURE OF THE PROBLEM, THE ABOVE ERRORS 


edad asda scearinitinrimisi ina ies scsi 





we 
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DZRKLC.P11 1? READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 


e. 
4 ie CUR IN ANY COMBINATION. vB. Aa atep ao B D THAT aT ALL 
E'S WEEE nected tind 
, ; I Eee eet 
ie i ? 5 175083 neath NOV re ean ‘ACL oH & ER FR a THE eet 
1 1 1ooot3 if aM oa TS ato foe AT THE MOST 
1 12737 177742 O02014 MOV #-36, ERCNT PACLOW 1 AT THE MOST 
{dese 16732 177764 00201 MOV #-14; ERCN ALLOW 1 aT host 
4 1 1 17778 boede9 : 36; ERCNTS $ALE OW 1 aT T 
ase BtDSsa Bbeaae Aai33G CLR Y BER SOUT FOR FOR 6°B. dees” - A TRACK 
1 12737 001712 001722 MOV _\ #PATO, PRSPAT INITLZE PTR TO PATRN GENRTR 
Es strc 13737 ppt eSe nireeta MOV DRIVAD, ADRES tINIILSE DRVs, 
307 
sure 10314 005037 002002 BEGIN: CLR ERCNT! sIF > 0, MEANS THAT RETRIES 
30 10320 002004 CLR ERCNT2 :DONE AFTER CSE OR CSE CHKD 
2074 10324 012737 177775 001550 MOV #-3, RETRYL "RETRY COUNT FOR CSE 
10332 012737 177776 001552 MOV #-2> RETRY2 *RETRY COUNT FOR SFTWRE MISCMP’N . 
3076 010340 012737 000003 001554 MOV é *RETRY COUNT FOR WCE 
3078 019346 013737 00174 001736 MOV ADRES,WOSKAD § ;DISK ADRES TO WRT CHK WITH 
3079 010354 013737 001704 901740 MOV PBUFI;WBUSAD USE THIS BUFR 1 TO WRT C 
3080 :OR THE BUFR INDICATED BY THE USER 
3081 010362 012737 176400 o01742 MOV #-1400,WWROCN WRT CHK 1 BLOCK=3SECS=1400 WRDS 
3083 010370 013737 001746 001730 READ: MOV S,DSKADR  ;DISK ADRES TO READ FROM 
3084 010376 912737 176400 001734 MOV Paitin WROCNT 31 BLOCK = 3 SECTORS = 1400 WROS 
3085 010404 013737 001702 601732 MOV — PBUFG-BUSADR-- :USE.*IOBUFO’ TO READ INT 
3086 OR THE BUFR INDICATED BY THE USER 
3088 010412 OO0404 BR RDAGAIN 
3083 010414 104414 LUPSIN: CON. RESET 
2091 O10416 1044i5 DRV.RESET 
320 104, 1 BR 
3094 o10422 104414 LUPHE: CON.RESET 
apap 010424 013777 001730 171330 RDAGAIN: MOV DSKADR,IRKDA —s ; READ FROM THIS DSK-ADRES 
3097 010432 013777 601734 171316 MOV WROCNT,SRKWC 3° «THIS # OF WOR 
ee 810440 013777 001732 171312 MOV BUSADR,@RKBA =; INTO THIS BUFR 
3100 O1O446 012777 OOO4OS 171300 MOV #405, IRKCS READ, SSE, GO 
3102 ° ’ 
3103 O104S54 012737 OC1704 O01744 MOV PBUF 1, BUFNO ;SET UP STARTING ADRES 
3104 O1 O73 171834 001726 MOV aPRSPAT. PGSUBR 
3105 Oi 777, 17le32 JSR . PC, aPGSUBR GO GENERATE A BUFFER 
3106 OF 1400 WORDS USING THIS 
3107 :PATRN GENRATR 
3108 o10474 104420 CON. RDY DONE WITH PATRN GENRTNG, 
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MACYL1 27(732) 
READ, SOFTWARE COMPARE, 


171250 


001110 


171290 


001110 


171122 
001110 


001202 
001202 


oo1ss4 


171010 


16-SEP-76 16: 
WRIT: 


WCAGAIN: MOV 
MOV 


BIT #BIT14, ARKCS 
BEQ NOHE 
MOV #L PERR 
Re rc, SET IAF 
RON RESET 
ie 
IMP EXT7 
IMP FINISH 
T 86179, IRKDS 
Q IN 
MOV #LUPSIN, SLPERR 
JSR PC, GETINE 
ERROR i 
CON. RESE 
DRV.RESET 
INC ERCNTY 
MeO? 
IMP FINISH 
TST ERCNT1 
BNE TC 
INC ERCNT1 
BIT aBITL, JRKER 
AByRBEGTN 
: see per ERR 
MOV Rete, $REGIO 
ADD $REG1O 
ERROR 
Inc frewts 
JMP EXT? 
JMP - CSEROR 
CLR ERCNT2 
MP #3, RETRY 
SNE $3, fEF 
WOSKAD, IRKDA 
WWRDCN, aRKWC 
MOV WBUSAD, JRKBA 
MOY #407, IRKCS 


x Foy 


;HARD ERROR 

;ALLOW 12 ERRORS AT MOST 
;IF MORE, EXIT 

;SIN SET? 

;NO 


;SIN ON READ 


;ALLOW S ERRORS AT MOST 
;IF MORE, EXIT 


CHECKING CSE FOR 1ST TINE 
; INDICATE THAT CSE HAS BEEN 
: CHECKED ONCE 


;CHECK SUM EROR? 


;GET THE RETRY & 
;SAVE IT FOR TYPEOUT 


FALLOW 10 ERRORS AT MOST 


SIRT 

s1T’S 1ST 

; IF DONE, BRANCH OTHERWISE DO IT 
; DSK-ADRES 


;WRT CHK, GO, SSE 












i T FOR CNT ROY TO SET 
FROM PREVIOUS READ) 






;IF MORE, EXIT 
G0, SERVICE CSE 


sCLR FLAG INDICATING SOFTWARE 
CHK _D ge OnE OR 


SMITH furs BUFFER 
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DZRKLC.P11 1? READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 
010744 005337 001554 DEC RETRY3 ; INDICATE WRT CHK DONE 


bigre8 887686 °° SPTOMPs ORE RGRDPT ITF 'SPihake CHPaRe Hes GEER DONE. 


010756 005237 902004 INC —_ERCNT2 Bot PE ste peptic 


= 0-2 0 9 pb 9p 


é. 
1 

f 

a 

7 THIS IS 1 
at Bd Be ioe iP Be 
ae :D0 sir shat WAS oA READ PROM 
iE a 
3173 010762 012702 O01S564 MOV #BUFR, R2 s INITLZE PTR.TO BUFR STORING 
318 001616 MOV 8BUFR1,R3 +095 Bare STARTING nESe 
182 010772 012704 001650 MOV #BUFR2, RY STORE RECVD (BAD) DATA 
3183 STARTING HERE 
aise 010776 005037 001776 CLR INDX3 ;CLR FLAG INDICATING MISCMPRE 
187 911908 013700 001702 COMPAR: MOV PBUFO, RO ; INITLZE PTR 10, sRECWD DATA’ BUFR 
3188 O11006 012737 17776 002000 MOV #-14. INDX4 :STORE AND RE OR LESS DATA ERRORS 
3183 11014 013701 001704 MOV i Rt IN TLZE PTR TOT Te CTD DATA’ BUFR 
1 ll 012737 176400 oO01SS6 MOV #-1400, INADR 
3191 911026 O21011 CMPAGAN: CMP = (RO), (RI) SCORRECT WORD READ FROM DISK? 
3135 Bttose Spat 011600 fic niscvp H IF MISCMPRE ERROR 

nee 

a8 bi G36 BS? 1S: TST (R i {INCRNINT PT : 
31g Bt Bae 001556 INC INADR DONE TAO RPRISON? 
3197 O11046 001367 BNE CMPAGAN Jo NOT, COMPARE THE REST 
3133 011050 005737 001776 TST INDX3 ATA WORD 

00 STEVEN AFTR A OBeRY NG) 
3291 011054 001420 BEQ WCREPT NO, BRANCH 

O2 011056 012737 010370 CD1110 REPMSC: MOV #READ, SLPERR 

11064 RROR 25 ;DATA ERROR 

04 011066 002014 NC ERCNT6 "ALLOW 10 ERRORS AT MOST 
3205 011072 o01002 BNE 1$ 
#208 011074 000137 011752 IMP EXT? ;IF MORE, EXIT 

07 011100 005737 001552 1$: TST RETRY2 
3208 011104 001404 Q WCREPT 
3209 011106 237 o015S2 NC RETRY2 
3210 1lll2 000137 010370 JMP READ 
212 O11116 104420 WCREPT: CON.RDY sHAIT FOR CNTRL B RDY FROM 
3513 011120 022737 177776 oo1ss2 CMP #-2, RETRY2 ‘IF THERE WAS A RETRY fF TER MISC 
35tF niiie6 047 EQ  —_ ERWCHK pRORRIIN, BY NET OE AGN 
3516 ptt iee 500404 BF LUPWCE+2 
3218 O11132 104414 LUPWCE: CON.RESET 
3219 011134 013777 00173 170620 MOV KAD,ORKDA — ; WRT CHK WITH THIS DSK-ADRES 
3220 011142 013777 00174 17006 MOV WWROCN? JRKWC # OF WORDS 
3221 O11150 013777 001740 G2 MOV WBUSAD, IRKBA THIS BUS ADRES 


ee eee oo ee 
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322 011156 012777 000407 170570 MOV #407, JRKCS t 

3224 011164 Mee ‘ a ieee CON. RDY —_ 

asse Bilise Bisse Biskas OALLP BEY = SBTTISCSAKDS”  ;HARD EROR?(FROM WRT CHK) 

3227 011202 001410 BEQ XHE :NO, BRANCH 

32 ai8tg 004737 O16006 ISR PC, GETINF a a aan to 

Es Liste " 002016 The ; CNT? Paka lz ERRORS AT MOST 

25 pt is38 pears 011752 — J EXT? ;IF MORE,- EXIT 

3235 011224 032777 OO0001 170520 XHE: BIT #8170, IRKER ;WRITE CHECK EROR? 

323% Olle32 001420 BEQ FINISH 

32 11234 737 016006 JSR PC, GETINE 

32 11240 012737 000003 001202 MOV 3; SREGIO GET 

32 11 163737 001554 001202 SUB RETRYS. SREGIO SAVE ™" For TYPEOUT 

3240 011254 104027 ERROR 27 ‘WRT CHK 

seul O1 1256 37 002020 INC ERCNTS "ALLOW 10 ERRORS AT MOST 
lleb2 001002 BNE 1$ 5 

3243 011264 000137 011752 IMP EXT? sIF MORE, EXIT 

seu 011270 000137 O11644 1S: JMP WCEROR : 

3545 as ; THERE WAS NO WCE. DONE 

3248 sWITH ALL CHECKING FOR SOFT 

3249 *ERORS, ETC. MODIFY PARAMETERS 

3250 310 CHECK’ NX T BLOCK ON 

eu i sal, 

3253 011274 022737 001720 001722 FINISH: CMP #PAT3, PRSPAT FIND OUT, THE NXT PATRN GENRATR 

3254 011302 001404 BEQ 1$ 10 USE FOR GENRATING THE 

32055 011304 062737 o00002 001722 ADD #2, PRSPAT : BUFR STORE POINTER TO 

3256 011312 BR $ ; GENRATR ROUTINE IN *PRSPAT’ 

3257 611314 012737 001712 001722 1S: MOV #PATO,PRSPAT  ;NOTE THER R 4 NRATRS 

3258 : PATO-PAT1-PAT2-PAT3----PATO- 

2259 011322 013701 001774 23: MOV INDX2,R1 FORM CTR # TO BE USED NEXT 

3260 011326 116101 O10210 MOVB  SECPTR(R1),R1  ;GE TR Py 

3261 011332 042737 OO0017 O01746 3S: BIC #17, ADRES ; MASK SECTR BITS 

3262 611340 050137 001746 BIS R1,ADRES FORM THE NEW DISK-ADRES 

3263 FORM THE NXT BLOCK TO BE 

3264 ; CHECKED. 

3265 011344 005237 001774 a - INDX2 *DONE ALL 4 BLOCKS(3 SECS 

3266 EACH) ON THIS TRACK? 

3267 011350 022737 OO0004 001774 CMP #4, INDX2 

3268 011356 001025 BNE GOBAK ;IF_NOT, GO BAK 8 DO THE 

3cb3 *NXT BLOCK ON THIS TRACK 

¢ 

3271 011360 005037 001774 DONTRK: CLR INDX2 sREINITLZE COUNT FOR 

3272 "4 BLOCKS ON THIS TRACK 

3273 011364 032737 O00001 001772 BIT #BITO, INDX1 :WHICH SUR TO 00, NXT? 0 OR 1 

3274 011372 001407 BEQ posuRi BRANCH, DO SUR 1 


3e 
a7 011374 062737 OO0040 001746 ADD #40, ADRES 
¥ 


wee a 
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1402 042737 000020 001746 BIC #20, ADRES ;CLR SUR BIT, DO SUR 0 NXT 


3278 01 
3679 011410 000403 BR DONE 
ra 011412 052737 000020 001746 DOSURI: BIS #20, ADRES ;SET SUR BIT, DO SUR 1 NXT 
3283 11420 005237 001772 DONE: INC NOX! ;DONE WITH ALL 626 TRACKS? 
Se BNE BURP ousse we SES 
3287 011432 000137 010314 GOBAK: JMP BEGIN He NOT, 90.8 GO BAK & CHECK 
228 
a0 ; CSEROR THIS IS : ENTRY POINT 
1 "FOR SERVICE ROUTINE FOR CHECK 

3292 011436 CSEROR: :SUM EROR. CONTROL IS XFERE 
3233 *HERE ONCE CSE OCCURS 
3295 011436 017700 170320 MOV JRKDA, RO ;GET RKDA AFTER CSE 
32968 011442 010001 MOV RO,R1 ‘SAVE RK 
3297 011444 032700 000017 BIT #17,RO *FORM THE ADRES OF THE SECTR 
3298 O114S0 001002 BNE 1§ ‘WHICH GAVE CSE 
3299 O11452 162700 ooc004 SUB #4,RO 
$300 011456 005300 1S: DEC RO RO CONTAINS DSK-ADRES WHERE 
3302 O11460 020037 001730 CMP RO, DSKADR DID A PREVIOUS RETRY (IF ANY) 
3303 GIVE CSE ON SAME ADRES 
3304 011464 001021 BNE 2 -NO, THIS IS A FRESH CSE, BRANCH. 
3305 te IF THIS WAS A CSE 0 
3306 011466 005237 o01S5S0 Inc RETRY "RETRY INCMNT RETR COUN 
3307 ae ; BRANCH IF 3 RETRIES OaVEN? T 
3308 011472 001021 BNE 3 : BEEN DONE 
330 i REPORT fh 
331 CSE WAS IN THE LAST SECTR OF 
$311 a He 3 SEC BLOCK GO TO *WRTCHK’ 
31 OTHE W HECK’ THE REST OF 
3313 ‘THE SECTORS FOR CSE. 
3314 011474 010102 MOV R1,R2 : 
2315 011476 O42702 177760 BIC #177760, Re 
3316 011502 Oo100e 73: BNE 8 
3317 011504 000137 010700 IMP WRTCHK 
3318 011510 162702 000003 8S: SUB #3,Re 
313 011514 100372 BPL 7§ 
3321 011516 010100 6S: MOV R1,RO 
3322 011520 012737 177775 oo1ssO MOV #-3, RETRY 
$323 011526 000403 BR 3$ 
$306 011530 012737 177776 OO1SSO 2S: MOV #-2, RETRY ALLOW 2 MORE TRIES FOR 

eb : ‘THE CSE ON SAME DISK-ADRES 
335% 011536 010037 001730 oe ‘MOV RO, DSKADR SAVE DSK-ADRES FOR DOING 
3329 j THE RET RY-READ 
3330 1154 63700 001746 sug ADRES, RO MODIFY THE 
3331 0115 5200 NC RO ius ADRES & WORD COUNT 
3332 011550 005300 4§: DEC RO 0 BE USE ON RETRY- 
3333 011552 001407 BEQ cs READ 


oe ae 
bee73? 
000767 


b8014? 


1o4420 


032777 
001401 
104414 
010022 


012123" 


o0S237 
Borsde 
000137 
000137 
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001099 901732 AUD 
C0049 001734 eee 


a. RESET 
- 010424 


MISCMP: CON. RDY 


040000 BIT 


1 
CON. RESET 


MOV 
MOV 
MOV 
INC 


INC 
BEQ 


JMP 
JMP 


001554 WCEROR: f 


o000c3 001554 
170076 


177760 


011274 
cocco3 


729 PAG 
CHECK oF 


F Fie PATTERNS 


#1000, BUSADR 
8400, WROCNT 


N RKER - 


;CLR_THE CSE 
READ AGAIN 


ROAGAIN :60 _— 
;RETR 


;THIS IS THE ENTRY POINT 
:FOR SERVICE ROUTINE, FO 
:DA ATA EROR OR (MISCOMPARISON) 


* ON 
: OF Bara WREAO FROM THE DISK SLOCK 
sWAIT FOR CNTRL gov FROM 


PREVIOUS WRT C 
#8ITL4,aRKCS 


;CLR WCE IN RKER 
iu ace “DATA * sai HERE 
M ADRES 


RO, ‘R2)+ 

(Rl), (R3)+ 
(RO) +: (R4)+ 
INDX3° :5RVE DAT AATESMPRICON. 


;STORE ONLY 12(DEC) ERORS _ 
:IF 12 ERORS, GO REPORT THEM 


;G0 BACK & CMPARE THE REST 


INDX4 
4§ 


CMPAGAN 
REPMSC 


TRY POINT FOR 
tC A GETTING A 


RETRY 

CLRERR 
#3,RETRY3 

SRKDA, RO 
RO,R 
#177760, R2 

FINISH 
3,Re 


3 
RO,R1 








Z 
a 


sees 9 
PN ead 


peeps 


BOIFAZB 


0 9—« 0 = & b+ b-0 9 = 0 


a ee ee ee ed 


a 
3 


Fa oe ae 
SMT TET Bath 


Ww 
~ 
OHOdOKOOKOARI00 OOOOOO0000 


BOVRAR ZS 


ss 


Bee ee ee ee ee 
Wwe 


fittest 





ee ee ee oe ee ee oe = b+ 0 6b - 0-0 


REG a 
: 


At 
Oo 
Ss 
oO 


— 


: CO 
RESO SSF TWARC CONPARE, RITE SHECK GF SHE PATTERNS 


z 


QO00000 


2088 


2 


Qo0o00 
— Pe 








SUB WOSKAD , RO 


MOV R1, WOSKAD :GET SAVED DISK ADRES 
2s: oe 

BEQ CLRERR 

AD 81000,WBUSAD § ;FORM THE NEW BUS ADRES 

RD 8400, WWROCN :FORM THE NEW WORD COUNT 
CLRERR: EON.RESEF® 

IMP WCAGAIN 


EXT7: JSR PC, ABRT 


Sm TEST WRIT am yt PATTE (ONE FOR EACH 
tSSeeF Frogs 1 126? ? 

-#C I TQ SEE IE THEY MERE WRIT 

*#CORRECTLY. IT SHOULD THA RE IS 

te ITE’ NT AT THIS CYLI 

: #PATTE LOCATED ON YLINDERS AFTER EACH 

s HURT TE/WRI TE c ck CYCLE. THUS THE FIRST T 

:#PATTERN 'SP1’ IS WRITTEN ON SECTOR 0, PATTERN *SP2” ON 
:#SECTOR 2 ETC. AFTER THIS WRITE/WRITE CHECK CYCLE 
:#IS OVER PATTERN 'SP2’ IS WRITTEN ON SECTOR 0, PATTERN 
:#:°SP3” ON SECTOR 1 AND SO ON. THIS WR {TE 

: #CHECK CYCLE S REPEATED 12 TIMES THUS 

*#THE LAST WRITE/WRITE CHECK IS DONE USING 

!#PATTERN ’SP12° ON SECTOR 0, PATTERN SPI’ IS 
:#WRITTEN ON SECTOR 1, PATTERN 'SP2’ ON SECTOR 2, 
?#ETC. IF YOU WANT TO WRITE ANY OTHER PATTERNS 

;#F b IN, THE PATT RN YOU WANT IN LOCATIONS 


+ ERE RE EEE EEE E EERE EEE EERE REE GEESE EEAEEEEEE EEE SEED EEEE44424% 


ST10: SCOPE 


MOV 8-14, ERCNT] ;ALLOW 12 ERRORS AT MOST 
MOV 8-14, ERCNTe ane l2 ERRORS AT MOST 


MOV 8-55, ERCNTS OW 15 ERRORS AT MOST 
MOV #SP1'Re S INITIALIZE POINTER TO PATRN 
DOWRT: MOV R2,R1 
MOV #7740, RO ;SET UP CYL ADRES BITS (127) 
BIS DRIVAD, RO :SET UP DRIVE # BITS 
WRLOL: CLR R3 
WRERR: CON.RESET 
WRLO: MOV RO, IRKDA sADRES THE DRIVE 
MOV 8-400, IRKWC ‘WRITE 1 SECTOR 
MOV RI aoeree :USE THIS PATTERN 
MOV : #4003, JRKCS :WRITE, GO : 


CON. RD 
Bat 8340000, GRKCS ;ANY ERROR? 


BE 
MOV SWRERR,SLPERR  ;SET ADRES FOR LOOPING ON ERROR 
JSR PC, GTYRG :GET TKCS, ER, DS, OA 
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Te cweee On CVPINGERE Lee “2 

ERROR 21 SERROR OCCURRED ON DOING A WRITE 
ON. RESE tELEAR THE ER FOR 

ERCNT FACCOW 12 ERRORS ONLY 


EXT10 


eso 


Aas 


;KEEP COUNT 
;USE PATTERNS IN A CYCLIC FASHION 


$4om858 % 


; INCREMENT POINTERS TO NEXT PATTERN 
;D0NE SURFACE 0? 


sNO 
;YES, IF CHANGING HEADS 
;SET UP CORRECT ADDRESS ETC. 


ou 
aro 
0-4 


O- + b-- & = &-< §-- 6 ~ 9+ > >= 6» = 0 e-t— 
Lo) 
R 
oOo 
_ 
s ow 
rr 


Re 
ow 
o+8—-« 
Nox 


;DONE_WITH WRITING SURFACE 1” 
; BRANCH 


DONE WITH BOTH CYLINDERS - 127 8 128” 
NO, 00 CYLINDER 128 


e 
ae 


BE 
S 


oO 
-— 
nj 


YIEO SL BESSRRB Me B 
8 

ue ER 

38 Re 


Qoonodn 
furufuru 
bb hh 

33 

peu 
w<o-4 


GO BACK 
;CYLINDERS 127 AND 128 HAVE BEEN 


f 


DOWCHK: ;WRITTEN, NOW DO WRITE CHECK 
| : INITIALIZE POINTER TO FIRST PATTERN 
sRETRY COUNT 
:DO CYLINDER 128 FIRST 
-WCHI1: 


WCERR: M ;ADRES THE DRIVE 
167520 WCHI: 0 sWRITE CHECK 1 SECTOR 
Ri, IRKBA 


WITH THIS PATTERN 
167504 #4007, ARKCS “WRITE CHECK, GO 


2200 

e202 QO} 
OY Ole? 

0} 


iusiuiiy 
tw 
2BR 
BS3% 
8S 


Gs Bs BO 
e 


: 


mu 

8 
—-O00 
gee 


3 
fy 


187470 #40000, IRKDS 

PC, GETINF 

ERCNT2 

a 

ag] , ORKER 

SCERR,SLPERR ;SET ab QOPING ON ERROR 
PC.GETINE =—sisS OR 

RETRY. SREGIO 

#4,SREC1IO : g ON DOING WRITE CHECK, WITH 
? ‘PATTERN STORED IN Ri 

RETRY 3 TI L 


Ran Bae 


Se 

o88e 
a 
oe a 


5 
‘ 


8 

ft 

a 
“ens 


Rast 
S 


b= 6-6 4 b= bt — ~~ OH - = 0-0-2 +6 ee eed el ee ee 


OOOOOOOOOOO0N0NO O0O00 O00000 


8 

Rg 
“rm 
23 


epee 
2:20 
Qa 

3 


fur 
Ww 










06 
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z 
Pe 


—e 
g 
= 










HERS BLE ooze ae Lou RoR on 
15550 ER 10 itt more: BY 
1 12737? 177775 001550 MOV #-3, RETRY 
ie “8. aise 
o3 4 1 o12512 te 85P12,R1 SAPTERNS IN CYCLIC 
ll 91 1 ole462 MOV 231-2, :F 
Bi i a 3$ TST (R1)+ HINCRERENT POINTER TO NEXT PATTERN 
3513 O01 000014 CMP R3, #14 : SURFACE 0? 
o: fae iw “ES phe 
sie 1241 {G20 MOV RL ;IF CHANGING HEADS (0-1), SET CORRECT 
17 01241 000017 Bic #1?, sADRES BITS 
#518 1e416 700 000020 BIS ,RO | 
Qt 22 920387 pon030 Fo} CMP R3, #30 ;DONE WRITE CHECKING SURFACE 1? 
1 Ole4e6 001300 BNE WAT *NO, GO BACK 
1 007700 WCLO IT #7700, RO ;DONE BOTH CYLINDERS - 127, 128” 
3253 t5u3 1005. ate REPERt YES acd 
3525 912436 O1 MOV 87740, RO :DO SYLINDER 127 NOW 
sek gigie 53700 001526 gis DRIVAD, RO 
1 OO6E WCHI] 
3258 
3530 012450 o0S722 REPEAT: TST (R2)+ 361 OCATE THE PATTERNS ON THE 
Qi gibe 022? 012514 CMP Re aSP12+2 CYLINDERS AND DO IT AGAIN 
1 i4 BEG TStil X 
012460 000137 012006 IMP DOWRT i fEXd TEXT) 
323¢ 
3536 
a PATTERNS TO 8&8 USED 
sIF YOU WANT TO WRITE ANY 
3540 HANGE THESE 











: OTHER TERNS, ¢ 
31e RAT ions 8 ANY PATTERN 
YOU WANT. 


012514 004737 O16S64 EXT10: 





FO6 
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s SRERAAASARARLARAASLARLASAASAASLERERSSAARAAAARSSAFRALALALARSALAE 
41 T 4 . SEEK FUNCTION TIMER 


E Ee PART OF THE PROGRAM SEEKS ARE TIMED BETWEEN A PARTICULAR SET 


Mang BOTH IN THE F DIRECTION (0-312) AND REVERSE(312-0). 
saIT SH NOTED THA 
nf ate gs et coun ures, we.8 I bine, The REAL 
HE SEEK ne 
METMIN, THe see DISK 
iss AIL ie Sees! 


CaOeenEERGEATOEEOAESGEAUHEAELAEEOAELAEAEEEEHEEEAEAEOHEEEEREEOHEH 


1 #4711 gPe 
e533 te 000100 166410 : 8SWb, ISWR ; INHIBIT TIMER? 


1523 1049414 nase CON. RE ft 

15888 ibis SRV RESET | 

O12S42 012737 177771 oo1sse MOY $-7, RETRY] sSOUNT FOR FOR 7 DIFRNT SEEK TIMES 
012550 104400 012556 TYPE 65$ s;TYPE ASCIZ STRING 

012554 o00424 BR 64$ “GET OVER THE ASCIZ 

aa, : jigs: ~ASCIZ <15>< 12> /SEEK TIME SCALE FACTOR=0.01 MILI SECS/ 
0} 104400 012634 " ‘TYPE 67 5s TYPE ASCI TRING 

biSese 000421 BR bb ::GET B fHE ASG 

age. i878: SASCIZ <15><12><12>7 « “OF 3 we SEEK/ 
Bistre 012704 Se. BAY $3 TPE aac aSCIZ § STRING 


5 5698: PASCIZ 1 ey SEEKS le serKs ASC ME «15> <12) 


Bie3 8oo2e BBISES Pov SSOADSGUTADR ©» INITLSE PTR 10 OUTER ADRES 


AAS AS cl eee te lS A 


012762 017777 166572 166772 REPTIM: MOV QOUTADR,IRKDA ;POSITION HEADS TO OUTER CYLINDER 
12770 001526 166764 BIS DRI DA fhe bed he 
BLE 76 ge 000011 166750 MOV or VoRKee YEetK 
1 104420 CON. ROY WAIT FoR EATRL RDY 
013006 104421 TST. RWS :WAIT FOR R/W/S RDY 
013010 005037 001772 CLR INOX1 sINDX1 = 0, GOING IN; OTHERWISE OUT 
013014 012704 MOV #BUFRIO, Ry s370RE Fu Fund SEEK TIMES IN THIS BUFR 
13020 012705 MOV #BUFRI VRSE " 
013024 012737 177634 001774 MOV 8-144, pee :SET at FOR # OF SEEKS 
130 0017 BEGSK: MOV RKDA, R2 
sea Maer ve 1786 TST NOX i ;GOING FWRO OR REVRSE? 
soil 013042 001005 BNE rt} *REVRSE, BRANCH 
3613 


013044 017712 166506 MOV JINADR, ARE sFWRO, SET INNER CYL ADRES 


MACY] 27(732)_ 16-SEP-76 16:29 mes ee 
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 oemeatin ;SET DRIVE # BITS 


pei 1B HP MBs ron ont 
i toe pees + fea bie 
NOX1 ¥ 


ACTOR= 0.01) REQUIRED FOR’ THE SEEK. 
R3, (R4)+ an TIME TAKEN FOR FRWRD SEEK 
INOX1 nth FOR DOING REVRSE SEEK 


oo — »— 9 po 
OOIDUI£ 


RRKKRS 
Bd 


RB, (RS)+ . TIME TAKEN FOR REVRSE SEEK 
CLR INDX1 :CLR FLG FOR DOING FRWRD SEEK 


INC INDX2 ;RECORDED 144 SEEK TIMES 
BNE BEGSK :1F NOT, GO BAK 


$B THBERS TPORLGRD TE REVERSE BIRECT TONS FORD Bere 
Pn Gae i! Te cl ote 


OF Tihs fo ie CULAR "SEEK TIME’ WAS OBTAINED. 
TIMES THE SEEK WAS DONE BETWEEN 


a 
ae 
see 
ee 


PRE 
BES 


LI 
ONS LER suas) THE SEEKING TIME. 
S DIFFERENT “SEEK TIMES” WILL BE TYPED 
;SORTING ROUTINE 
HOY ry SON T FOR FRWRD 
v 10, $REGO LZE PTR TO PeeER Fhe: 
NOV 
Nov R sINTLZE PTR TO '® OF TIMES’ 
:PTR T *SEEK TIME’ 
sCOUNT FOR 143 ITEMS TC SORT 


& 2326 HERSE 


(RO), (RL) ;SORT THE pros 8 vr THEM 


iN N DESCENDING 
(RO), RY at eR OF LIST, 
(R1)’ (RO) LER AT THE BOTTOM 

RY, (RI) 


Seen 


aa 
=m 


O0O000000 2000 20000 


O— b+ 0 = b= 6 0 he ob — b+ oe Ob B+ b-2 


a 





HO6 
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ge 
58 
et 
$ 


=e - — 
et 


Oo 2000 


FRREKE 
Veta zane 


cs ee 


aos 


a oo 


QOOO0OO00000 


O— 6 b= bp 
oe 

-— 

TJ 


Ske— 


se 


£0 
oP 
oe 


ssoueneareaa 
SSeS 
ee 


= 


o00 2000000 2000 


rn oe on re bot = b— bs aoe ee ee 


oo 


~- 
£ 
_— 
ul 


as 


S 


BREED 
ine Be RB 


Hh a ys Se 
WOnNMOU£WT- oO 
; 


SSSSSSSss7ssg“ss88 


He th} 


a 


sBPTIGR bbe" OCR” 


ig 

$REGO, RO ;PTR_TO "SEEK TINE 

sre ROVE "ECE TIMES” HERE 
Maye sCLR OUT 5 OF 

(R4)+ :*s OF TIMES’ BUFR 

(R4)4¢ 

(R4)+ 

(R4)¢ 

#-5,R3 ;SAVE ONLY 5 DIFRNT *SEEK TIMES’ 
(RO), (RL) sFIND OUT *s OF TIMES’ 
a-144,R3 sEACH *SEEK TIME’ WAS 

(RO)+; (RL) 

cs ; OBTAINED 

(R1)+ 

7EiRO) , (RL) ;SAVE "SEEK TIME’ 

1, (R2) ;KEEP °# OF TIMES’ 

6 

rt 

(R2) ;INCRMNT '# OF TIMES’ 

R3 sALL DONE? | 

4§ ?IF NOT, GO BAK 

RS ;SORTED BOTH FRWRD, REVRSE 
GOTYPE :*SEEK TIMES’, IF YES GO TYPE 
#BUFR11 ;IF NOT, INITLZE PTR TO "SEEK TIME’ 
SEUFRT TSS SHE 

#BUFRE,SREG2 ;SAVE ’SEEK TIME’ 


#BUFR7,$REG3 . ;SAVE '& OF TIMES’ HERE 
1$ - 3G0 BAK 8 DO SORTING FOR REVRSE SEEK TIMES 
; TYPE OUT CYL #’S BETWEEN WHICH SEEK 
*WAS TIMED. "OUTADR’ TO 'INADR’ "INADR® TO ‘OUTHOR’ 


65$ 3; TYPE ASCIZ STRING 
4 ;;GET OVER THE ASCIZ 
/CYLS:/ 


SOUTAOR, AO ;GET OUTER CYL # 


RO 
RO 


06 
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oOo 
em 
4 
me 
x 


RO 


;TYPE IT OUT IN DECIMAL 
:; TYPE ASCIZ STRING 
ag ;;GET OVER THE ASCIZ 
iig’s 
: ;GET INNER CYL #@ 


rah 


GIy 
~“J 
pS 
bes 


;TYPE IT OUT IN DECIMAL 
$3 LYRE ASCIZ STRING 
it T OVER THE ASCIZ 
(15><12>/  FRWRD?’ 


»BLNKSS 


O000 BOO0O0000000 20000 


en a a o> = b= Bb 0 fh > bb = he el ee ee ee 


Phot REDRBSERES? Bde 


; ;; TYPE Gace STRING 
;;GET OVER ASCIZ 


SEEKS’ 8 *SEEK 
EACH OF THOSE 


es 
eS 
cia 
3750 013520 
3751 
3752 
a7 
3755 
3756 
3757 
3758 
3760 


BUFRS(RO),-(SP) ;GET ’'s OF SEEKS’, IF NONE (Q) 
3$ "SKIP TYPING (FRWRD SEEK 
:GO TYPE OUT DECIMAL "S OF SEEKS’ 


S 
OOKOOI00O0000 
0 


& SRSekee BEseRoaneNs 


BUFR4(RO) , -(SP) ;GET "SEEK TIME’ FOR EACH OF 
THAT *# OF SEEKS’. *GO 
TYPE OUT tN DECIMAL 


R7(RO),-(SP) ;GET ’s OF SEEKS’, IF NONE (0) 
ae ° ‘gE lp TYPING EREVASE seeks 


Sagoo 


S 

io 

Ve] 
bs DA bb 0 


;TYPE OUT IN DECIMAL 


OOOO0KOKO00000 
—— oe 


s 
oO 


BUFRE(RO),-(SP) ;GET "SEEK TIME’ & TYPE IT 
ss ;OUT IN DECIMAL 


(SP)+ ;POP STACK 
RS 


PESERERSRSRE 


oo 





SEE SE | 


S 
6b 


= 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
Bi 
381 
3814 
3815 
Y 
3818 
2819 
3822 
3823 
3824 
3825 
3826 
3827 


etetetatatet 
SBR sae 


tes 
rata} 


s 





JO6 
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MER 


;POP STACK 


un) 


~ 
ak 
<= . 


Page PTR TO TABLES 
1 ) BAK 
po138 1 carey POINTER TO NEXT 
1860 ; INNER & OUTER ADRES 
001550 DONE? 
000100 165256 
012762 


INHIBIT TIMER? FURTHER ? 


;YES, BRANC 
3G0, BACK AND TIME REST 
;OF SEEKS 


SABZS8 me 


% 


;PLOT = OF *SEEK TIME’ V/S ’CYLIDERS SEEKED’ 


1 alii _— aa ae i oo TO EVERY OTHER C 
"SECTOR COUN 


Ung yO, To TE THERE, Seats, SE ae 


;TIME THE SEEKS 
PLTGRPH: BIT #SWS | ISHR ;SKIP THE GRAPH? 


J TsTi2 YES, BRANCH 

CON. RESET 

~~, 313, INDX3 3 SEEKS 0-0 
#BUFRIO,R4 BRO ORE ’SEEK TIME’ HERE 

NADR :CLR CYL SRDRES BITS 


INADR JRKDA sADRES THE RIGHT CYLINDER 
IvAb,aRKDA = ADRES THE RIGHT DRIVE 


004737 014560 PC, TIMSEK 


0-1,0-312 


-SCALE F 
010324 * Ra,(R)+ : STORE ‘SEEK T 
b18777 000011 #11, aRKCS sTINENG ist eve 3 
O44 : MATT FOR on evry ROY ROD 
737 000040 #40, INADR “FORM NXT CYL ADRE 
005237 001776 INDX3 
001351 BNE it} 


TO CYL O FOR 
x 
y 
Ss 


;PLOT A GRAPH USING "SEEK TIMES’ RECORDED GEFORE 


KO6 
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3838 914004 PLOT: 
3839 OL 4008 104409 014012 TYPE ss TYPE neh STRING. 
a ae iagss: .ASCIZ i CA: HE aire - MILI SECS/ 
3843 01 014064 TYPE ss TYPE I 
Se ONCE Od0eE arr Oh iiGeT OUR fog OSCTz 
*-67§: .ASCIZ <15><12>/Y AXIS ~"CYLIND OM 07«15><12><12> 
36 014132 66s: 
384 
141 00 T 
141 BLNKS? 
14136 CLR RO TYPE OUT THE TIME UNITS 
141 0100 18: MOV RO, -(SP) OMT I SECS) FOR THE X-AXIS 
141 2 TYPDSS LIKE THIS: 
14144 7 TST RO ‘0 20060 30) s*Y4O...... 
3854 0141 ait BEQ 
141 2 000144 CMP #144, RO 
141 10 BGT 
14156 022700 000170 CMP #170,RO 
3858 O14i62 O0241 BLT S$ 
9 O14164 TYPE 
14166 O& BLNKS2 
1 O14] BR 3$ 
Sees OL4iad | bheua? es: KS! 
Sera Olutse | Goaun ws: WY 
3865 014200 O02405 BLNKS3 
3866 014202 062700 oo0012 33: ADD #12,R0 
3867 014206 000754 BR 1$ 
sre 14210 1044 S$ 
3870 Ol4el2 001213 SCRLF 
3871 014214. 104400 TYPE 
3872 O14216 O02401 BLNKS7 
5 ‘014220 012700 177763 PLT1: MOV #-15,R0 ;TYPE OUT THE X-AXIS MARKERS 
2875 014224 1$: 
3876 O14224 104400 o14232 TYPE 65S ; TYPE ASCIZ STRING 
3877 014230 03 BR 64S *:GET OVER THE ASCIZ 
3878 -:65$: .ASCIZ /I----/ 
3879 g1eN0 | 64s: # oe as 
38a; Olusde BoTa70 ins SS ; 
3883 sIF SW 4 IS SET THEN TYPE THE COMPLETE GRAPH. IF NOT TYPE THE SMALL GRAPH. 
3885 014244 032777 OO00020 164666 BIT #SW4, aSWR ;TYPE COMPLETE GRAPH? 
3886 O14eS2 O010S4 BNE CMPGRP YES BRANCH 
3887 :IF NOT, TYPE SMALL GRAPH 
3888 
3889 
3890 
3891 014254 00500 SMGRP: CLR RO 
3692 014256 032777 OCOOYO 164654 15: BIT #SWS, ISWR ;SKIP REST OF GRAPH? 


3893 Ol4e64. 001445 BEQ S$ ;YES 


LO6 


se SP | ta MACY11 27(732)__ 16-SEP-76 16:29 PAGE 77 
Tl) SEEK FUNCTION TIMER 


3 a apiz13 REE, . “ St we Se SEECTED TIMES ARE 


iYCL 


? alco 3e4, situa ee , 16,1 "20, 
ni 
ee 014272 010046 RO, -(SP 
blisre a 014304 TYPES 65$ si Tyve ofise! TRING 
14 Aeoaot BR 645 +} ee a 
-:65$: .ASCIZ /-/ 
14306 64s: 
yh : HOV RO,Ri sFORM THE ADRES OF ’SEEK TIME’ 
3308 143le O161 00 MOV BUFRIO(RI},R3 © ;GET THE SEEK K TIME 
$308 14316 ? 4520 ISR PC, PLTPT 
14 CMP 84/RO sPLOTTED’ Gprpe CYL 4? 
3910 O14 BL 2s :YES 
11 O14 I R 
12 014 BR 1 
13 O14 O22 000024 es: CMP #24,RO ;PLOTTED UPTO CYL 20? 
14 014340 0034 BLE 3$ 
15 IME Sores ooooo2 ROO #2, RO 
18 14 2700 000310 38: CMP #310,R0 sPLOTTED UPTO CYL 200? 
3918 014354 33 BLE 
3919 14355 700 oooocs ADD #5, RO 
$3€0 14 0007 BR | 
1 614364 Oe 600312 4§; CMP #312, RO ;PLOTTED ALL CYLS? 
3922 014370 O014 BEQ c$ 
3923 ot ooooce ADD #2,R0 
3604 014376 0007, BR 1§ 
3925 O14400 000137 015006 S$: IMP TST12 
2) sIF SW 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT. IT GIVES TIMES FOR 
3929 :SEEKS FROM CYLINDER O TO ALL OTHER CYLINDERS (0,1,2,3...202). 
33 014404 gosoog CMPGRP: CLR RO sINITLZE COUN 
3932 014406 012701 177773 MOV #-5,R1 : INITLZE KOEN FOR Y-AXIS MARKER 
3933 O144i2 012702 026200 MOV #BUFR10,R2 :INITLZE PTR TO SEEK TIMES 
3934 O144i6 104400 TYPE 
3935 014420 001213 SCRLF 
$336 Oiwie2 oo04le2 3 
3938 O14424 032777 OODOYO 164506 2S: BIT ASH, aSWR ;SKIP REST OF GRAPH? 
3939 014432 001002 BNE 
3340 014434 000137 015006 IMP isti2 
i o1H4ag 005201 : INC Ri ;TYPE OUT Y-AXIS MARKER ‘CYL #’ 
3942 14442 001005 BNE. 4§ tIF REQUIRED 
3943 O14444 012701 177773 MOV #-5,R 
3944 014450 010046 3S: MOV RO, Rep) sTYPE "CYL #’ ON Y-AXIS 
3945 O14452 104404 TYPOS (IN DECIMAL) 
3946 014454 Oo0402 S$ 
3947 014456 104400 4S: YPE 
3948 O14460 002402 BLNKS6 
3949 014462 S$: 


Z 
cS 


‘iiinanenrrarsennncY 2 


Seek F 


014470 


is 


oS 
33 


014520 


=? 
~_ 


z 


000312 
015006 


Bi 
gigs 


162703 000310 . 


000144 


104400 O145S4 


06 
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R 
TYPE 65$ 3; TYPE ASCIZ STRING 
BR 645 :GET OVER ASCIZ 
4658: .ASCIZ . /-/ 
64s: 
MOV (R2)+,R3 ;GET SEEK TIME 
JSR PC, PLTPT GO PLOT’ THE POINT 
TYPE 
SCRLF 
INC R0 ALL DONE? 
CMP #312,RO 
BNE 2s IF NOT, GO BAK 
6S: IMP TSTle 
;PLTPT 
THE ROUTINE IS ENTERED WITH R3 CONTAINING HORIZONTAL AXIS 
*COORDINATE- SEEK TIME 
?PLOT THE ACTUAL TIME ON THE GRAPH. _IN KEEPING WITH NORMAL 
:CONVENTION A NUMBER LESS THAN HALF THE CELL WIDTH IS 
“CONSIDERED AS FALLING UNDER THE PREVIOUS CELL, A NUMBER 
‘GREATER THAN OR EQUAL TO HALF THE CELL WIDTH FALLS UNDER THE NEXT CELL 
*EX: IF SEEK TIME IS 11.5 MS, I's BETW’N 10 8 le, BUT > 11 
*HENCE IT WILL BE PLOTTED AS'12 IF SEEK TIME IS 10.8 MS, 
31T’S BETW'N 10 & le, BUT < 11 IT WILL BE PLOTTED 
3;AS 10.0 MS 
PLTPT: SUB #310,R3 FIND OUT HOW MANY BLANKS TO 
BLT 7§ INSERT TO PLOT THE POINT 
:NOTE THE FIRST CELL = 0 MS 
TYPE 
BLNKS1 
BR PLTPT 
7S: ADD #144,R3 
BLT 8g 
TYPE 
BLNKS1 
8S: 
TYPE &S$ TYPE ASCIZ STRING 
BR 64S :GET OVER THE ASCIZ 
+:65$: .ASCIZ /X/ 
645: 
RTS PC 


; TIMSEK , 

*THIS ROUTINE FINDS OUT THE TIME REQUIRED TO SEEK TO THE CYLINDER 
“INDICATED IN RKDA. 

: HesCAUT ONaHH SECTOR COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME. 
: * RKDA CONTAINS THE CYLINDER TO BE SEEKED FROM THE PRESENT POSITION. 
RETURN: R3C 


3R3 WILL COUNT REVOLUTIONS OF 


ONTAINS THE SEEK TIME IN MILI SECS. SCALE FACTOR = 0.01 


Se a | ala 
DZRKLC.P11 


014716 


014720 
0147¢e 


ae 


014742 


NO6. 
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TIMER 
TIMSEK: MOV R2,-(SP) 
001750 ae RS 6 RI 
1S: Vv dR1,Re 
090400 BIT *08, Re 
BEQ 
oooo10 BIT pps 
BEQ 1$ 
2s: MOV dR1, Re 
ooo400 SIT-. #400,Re 
BEQ 
CMP  - gRI,Re 
Ff 
000017 BI #17,R2 
BNE 2g 
000011 165116 MOV #11, IRKCS 
CON. RDY 
3S: MOV R1,R2 
oob4co BIT #400, R2 
BEQ 3s 
CMP 2,aR1 
BNE 3$ 
000100 BIT #100, Re 
BNE SKDON 
000017 —«=-} BET #17,Re 
BEQ 3 
4S: MOV dR1 Re 
000400 BIT #400, Re 
BEQ ug 
CMP R2,9R1 
B 4g 
000100 BI #100,R2 
BNE S$ 
000017 BIT #17,Re 
BNE 4g 
INC R3 
BR 3 
000017 S$: BIT #17,Re 
BNE SKDON 
INC 3 
SKDON: 
000014 MOV #14, -(SP) 
MOV 3,-(SP) 
020256 ISR PC; a8SMULT 


;DISK (FROM INDEX MARK TO INDEX MARK) 
s40 MILI SECS FOR EACH REV 


;WAIT FOR SOK 


T FOR SECTOR 10 SO THAT 
;U CAN stant WAITING FOR 
INDEX, SEC O 


;WAIT FOR SEC OK 


;WAIT FOR SEC O, ieee MARK 
sAS_SOON’AS IT IS SEC 0; ISSUE 
3A SEEK & START TIMING 


:TSSUE A SESK, START TIMING 
SEC COUNTER 
Ms T FOR CNTRL RDY 


;GET_RKDS 
;WAIT FOR SOK 


tp CORRECT? 


0 
*R/W/S_RDY SET? 
iF YES, BRANCH 

WAIT FOR SEC CNTR TO MOVE 
FROM ol 


;WAIT FOR SOK 


;R/W/S _RDY SET, SEEK DONE? 
;YES = 


’ ’ 

;1F Mog TRACK OF eC 
; COUNTER. INCREMENT R3 AT 
sEVERY INDEX MARK, EVERY rs 
340 MILI SECS 
GO BAK, KEEP TIME 


;CHECK, IS IT INDEX MARK -SEC 0: 
*IF NOT, SKIP 
:IF YES, INCREMENT COUNT 


;SEEK DONE, SAVE RKDS-SEC COUNTER. 
BUT THE MULTIPLER ON THE STACK 


T THE MULTIPLICAND ON THE STACK 
5 CALL rie RULTPLY ROUTINE 
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DZRKLE.P LL Tl SEEK FUNCTION TIMER 
402 OL47HE O12616 MoV (SP, (SP) jogger THE MSB’S 
4063 014° 12693 MOV GET THE LS3°S OF THE PRODUCT 
4064 9147 338 177760 BIC 21°72 san. Re TIMES(IN DECIMAL? 
4055 O14° 3 ADD SEEK: TOT COUNTER IX330%9. 0! 
4066 ; ERE bul A SCALE FACTOR 
406? 1479 o1e74 90012 MOV 512 ={SP) THE MULT IPLER ON THE ST 
4368 14764 510346 MOV -{sp MULTIPLICAND ON THE Stack 
409 014766 OO4737 20256 JSR Be a8 MULT ::CALL The ws spout ite 
4070 14772 Oi2616 MOV (SP)+, (SP) ; ;DISRE 
4071 514774 912653 MOV ($P)+°R3 HE ae OF sat PRODUCT 
“O72 91477 O62753 ooDe4s ADD #245, 43 sassumprian” tant EACH SECTO 
1003 7 :TAKES 3.3 MILI SECS. IF Tee 





407 sSEC COUNTER WOULD NOT BE AN 
age8 ee ban CLOCK. 

407 15902 912602 MOV - (§P)4,Re : 
4089 915004 9600207 RTS PC RETURN 











woes TO ger ymagesiagge pg +++ penanm: mgestcmemramancsn ge lich 
:% 
4085 s#THIS IS NOT A TEST BUT IS JUST A LINKAGE 
4086 : #PROV IDED TO TEST ALL THE DRIVES. 
4087 sadumaluasnnsndauennesiabentnsntonntonateseninulememmsiaanell 
4088 015006 000004 tét12: SCoPE 
4089 0150 Oc #SPE » SCRLF 
4090 91 00 
015020 37 BRVDON 
40 015024 123737 S22 O001523 STEOP: CMPB ORVOON, DRIVS 
40 01SC3s2 081402 ae 
015034 900137 003524 JMP NXTORV 






4996 .SBTTL END OF PASS ROUTINE - 







4098 5 SEREEREREREESSERSEREERS LAPSE RS SES ARAL SRRELEHERAALE SSE LESSEE EL EE 
ut39 :*INCREMENT THE PASS NUMBER (S$PASS) 

4100 : INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
4101 :#TYPE “END PASS ge tiHene XXXXX IS A DECIMAL NUMBER): 
41 1 SCOPE 

4) react Boeaas 091102 CLR $TSTNM :;ZERO THE TEST NUMBER 

4108 9150 00S237 001100 INC $PAass ;; INCREMENT THE PASS NUMBER 
4109 9150 pee ae 100086 001100 BIC - s#l00000,SPASS ;;DON°T ALLOW 8 NEG. NUMBER 
$110 O15 327 DEC (PC )+ :;LOOP? 

4i11 015062 000001 SEOPCT: .WORD 

4ll2 O15064 003022 BGT $O0AGN 3: YES 

4113 O1S066 012737 - MOV (PC)+,a(PC)+ ;;RESTORE COUNTER . 

114 -015070 000001 SENOCT: .WORD 1 

4115 015072 01506 SECPCT 

4i16 015074 104400 015141 YPE SENOMG ; TYPE “END PASS & 

4117 015100 013746 O01:c0 MOV $PASS,-(SP) tISAVE $PASS FOR TyPEOUT 





Toe om Daw J } 








. | gate MACY11 g¢ (732) 
ROU 





Boake END OF PASS INE 

411g 015104 

a0 bile $GETY2: 
oo Be 

55 bi83e SENDAD: 
ue fe 

oe ae — 
i Re ee om ete 
se? BtEtS® RTE uaa owette ENGR 
4132 O15146 950040 OSISOl D20l23 
4133 015154 00043 

e 
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sie 8b 


PC, (RO) 


a(PCi¢ © 
44 3 





;;G0_TYPE--DECIMAL ASCII WITH SIGN 
s; TYPE A ' nes TER 

3 3GET MONT DRESS 

;;BRANCH IF NO MONITOR 

;;CLEAR THE WORLD 

::GO TO MONITOR 

53 AVE ROCM 

;3FOR 

s;ACTLI 

; ; RETURN 


isNULL CHARACTER STRING 
hast, Jeno PASS #/ 
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:COMMON SUBROUTINES AND HANDLERS 


-SBTTL ESRIS 
fare pore IS USED TO TYPE OUT ERROR DATA FOR ITEM iS 


OF THE & AT ENTRY INTO THI 
SROUTINE' RS CONTRING THe DUSk’AGDRESS PROM MRTCH THE 12 
8’S RICH GA BAD HEADERS HAVE 


BEEN EN STORED. sient ve. BT Bu BER’ THE CORRESPONDING HEADERS 
HAVE EN ST TARTING AT *BUFRI’. 

; THE PRINTOUT LOOKS LIKE: 

sSEC# HOR RECVD 

3AA BBE AA=BAD SEC # BSSB8B=8AD HEADER 
SEXPCTD HDR=XXXXXX TRYa#= Y 


ESRIS: 


= 
e 


fe BL oN STACK 
re me, iaec 8 3 s19e ep "HERE. PREVIOUSLY 
; :GO TYPE OUT BAD SEC # (OCTAL) 
:ONLY 2 DIGITS 
:SUPRES LDG 0°S 
; TYPE 3 BLNKS 


(R2)}+,-(SP) ;G0 TYPE OUT BAD HEADER 


tT 
~ 


Bey 


TICE 
—-O0000 
? 
foo 


UTUNUTUNUT UU 


ORS 
ios 


CRN 
3 
SEBeRe 


om £mc 
“ru 


BRS 


8177777, (RL) ; C_#°S TYPD OUT? 
1§ ; BRK 


e 


~- 
£ 


TYPE OUT EXPCTD HEADER FOR 
THAT CYLINDER 


(SP)+,R2 ;;POP STACK INTO R2 
(SP)+, . ' oe 3;POP STACK INTO Ri 


re 


RS,-(SP) 
#160037, (SP) 


oo 2 
Or- 
-—o 


a 


1 

1 

1 
ot 

1 
0} 
Ql 
C1 
01 
Ql 
01 
at 

1 
Oi 
Ol 
Ql 
01 
Oi 
Ol 
ot 

1 
01 
01 
01 
01 
1 
01 


aia SoRee BS 
83 


-SBTTL ESR13 
THis ROUTINE AF ob wie WITH —_— 13”" TQ TYPEOUT OUT ERROR 
DATA WHICH GAVE BRD 


ORT! ING AT sTEUFR’ SHE CORRESPONDING BAD HEADERS HAVE 
‘BEEN STORED STARTING AT BUFRI’. RS CONTAINS THE EXPECTED 





MAINDEC-11-D2RKL-C 


DZRKLC.Pil 


& SRESNS Bap 


Bo 
or 


g 
O0000 2800000 O00 


ee ee ee ed oe on ee a a ed 


as 


ee b-e 


Revere 29 BF 


£ 

Q 
QOo00000 2000000 O20 oO 
et hh 


- 
Oo 


ESR13 


MACY11 27(732) 


015289 
Olbile 


015342 


001162 


015370 


001164 


E07 
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;HEADER FOR THAT CYLINDER. 


a" Be 


sEXPCTD HOR=XXXXXX TRY#: 
ESR13: JSR PC, ESRIS 
13h an 
BR 643 
2658: .ASCIZ 7 SUR=/ 
bas: 
CLR -(SP) 
BIT 820,R5 
Q 1$ 
NC (SP) 
1S: TYPOC 
TYPE MSG13 
MOV.  ——- RETRY2,-(SP) 
INC (SP) 
TYPOC 
RTS PC 
'.SBTTL ESR20 


Sou nae BUFR 


T BUFR’ C 
SHEADE R For” THE EOYLINOER, 


BeBBeB- =BhO | oe 


THE TYPEOUT LOOKS LIKE 


3; TYPE ASCIZ STRING . 
3;GET OVER THE ASCIZ 


;SUR 0 OR 117 


OR AT THE TI 
» CONTAINS SECTOR 9° THAT AVE BAD 
NS BAD HEADE CONTAINS EXBESTED 
ae *OUTADR’ CONTAIN THE CYLINDER 


ADDRESSES BETWEEN WHICH THE IMPLIED SEEK WAS TRIED. 


ESR20: JSR PC,ESR13 
JSR PC’ ERRe 
TYPE 65$ 
BR 4$ 
»-:65$: .ASCIZ / CYLA=/ 
64S: 
SREGO,-(SP) 
YPOS 
-BYTE 
TYPE 67$ 


5R } 
bje?s: -ASCIZ 4 CYLB=/ 
"MOVs REG, -( SP) 


-SBTTL ESReS 





:G0 TYPE OUT SEC #°S, BAD HDRS 
?GET CYL _#°S BETWN WHICH SEEK 


‘WAS TRIED 

:; TYPE ASCIZ STRING 

::GET OVER THE ASCIZ 

;G0 TYPE CYL # FROM WHERE 

:SEEK BEGAN 

sve 3D DIGITS 

URE Se a Farn 
ete san Me 

;TYPE CYL # TO WHICH SEEK 

TYPE 3 DIGITS 

: § LOG O’S 


MAINDEC-11-DZRKL-C 
DIRKLC.P11 SR2S 


na 


015412 
015414 


€ Raane 


2 


a 


8B 


a a od 
£mvo 


can 


aed 


MACYI1 &7(732)3 


001702 


Be 


001746 
001170 
016012 


001174 © 


ESR2S: MOV 
MOV 


163502 1S: 


2$: 


3$: 


FO? 
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R2,RS 

#BUFR, Re 
sBUFR1,R3 
sBUFR2,R4 


#SW13, ISWR 
4$ 


PBUFO, (R2) 


(RS), -(SP) 


or 


(R3)+,-(SP) 


(R4)+,-(SP) 


RO, SREG3 
PC, BRKDA 


SREGS, -(SP) 


;SAVE ADRES OF TERMINATOR 


ADAG S BD T TRGLE STORING 
’ : INI 


Becto’ DATA 
;INITLZE PTR 10 "RECVD” DATS 


INHIBIT TYPE OUT? 
sYES, EXIT 


;GET WORD # IN BUFR (0,1,2...) 


WHICH WAS BAD. NOTE YOU 
CAN HAVE THE ACTUAL MEMORY 
$80 .. ADDING * IOBUFO’ 


;G0 TYPE WORD 8 THAT WAS BAD 


32 BLANKS 


;GET_EXPC 
:G0 TYPE I 


DATA 


;GET RECVD DATA (BAD) 
GO TYPE IT 


;GET THE DISK ADRES FROM 
SWHICH THIS (BAD) DATA WAS 
: READ 
;RO CONTAINS THE DISK 
ADRES FROM WHICH THE (BAD) 
:DATA WAS READ 

GO BREAK ABOVE DISK ADRES 
INTO CYL#, SUR®, SECe 
sGer | CYLs 
SOME q DIGITS 
:NO LEADING 0’S 


G07 
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013746 001176 . we SREG6, -( SP) seer SUR s 
BY 4 i Iba ONLY 


1044 


oe Bisse : 


0 
NOU LWT O 


104400 TYPE 
002404 SLNKS4 
$REG7,-(SP) ger SECs 
iS ve TS 


SALA LL 


LIGIG) 


; INCREMNT PTR 
s TYPED OUT ALL BAD DATA 


iI 
iIF NOT LUP BAK 


ST A Re, 
;TYPE IT OU 


Be YES, RETURN 


TYPING OUT MESSAGES & DATA 
TS SET, THE TYPEOUT IS 


PROVIDES AN poem TO THE 
THAT MESAGE ITEM 


Bi: NESAGE’ ITEM CONTAINS: . 

; MS: POINTER 10 THE ASCII MESAGE 

; DH: POINTER 10. THE DATA HEADER 

: DT: POINTER 10 THE DATA 

TF D1" 1S 0 THE DATA 15 TO BE PRINTED USING THE SUBROUTINE 
SINDICATED IN PLACE OF THE TERMINATOR 


777 O20000 163274 MSGE: #SW13, ISWR ; INHIBIT TYPEOUT? 
ROY ig RRPC ig SOF *MESAGE’ CALL 
sete ine Tf 


SUB C ; 
MOVB a SP), SITEMB GT MESAGE # (INDEX TO ITEM TABLE) 
JSR PC, J#ERRTYP TO PERATYP" & TYPE OUT 


18: ADD , (SP) oust RETURN ADDRES 


;THIS ROUTINE is, USED FOR TYPING OUT ASCII MESSAGES. BEFORE 
:T IS TYPED SW13 is CHECKED & IF SET THE 

;TYPEOUT IS INRIBIT ED $8 AN EXIT IS MADE. 

;THE CALL FOR THIS ROUTINE IS “TYPMSG", AN ENCODED 









HO? 
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30 SIRE POIRIER To THE ASCII MESSAGE TO BE TYPED IS LOCATED IN THE 
a) SWORD FOLLOWING tHE a e ae 

Wes Ol 032777 O20000 163232 TY.MSG: BIT s#SW13,aSWR ; INHIBIT TYPEOUT? 

4364 01 01005 BNE 2g IVES, EXIT 

wes 015710 01763? 00000 015720 MOV. (SP), 18 iGET POINTER TO ASCII MESSAGE 

4 18716 104400 TYPE 'G0 T tl STRING 

ie, Hie eh 

4 i ig oo0002 3g: #2, (SP) SADJUST RETURN ADRES, SKIP OVER 
4363 IBOINTER ON RETURN 

4300 018726 900002 RTI PEXIT 

4 

4395 

4374 

mt eee i GITS ROUTINE EXTRACTS THE CYLINDER # FROM RKDA AND STORES IT 
333 SIN SREGS. THEN TRANGPERS RACE. ER OS DA TOUSREGD, SREeT, SREG2, SREG 
4378 015730 O17746 164026 GTSRG: MOV ORKDA, -( SP) PUSH RKDA ONTO STACK 

4373 015734 O¥e716 180037 #160037,(SP)  :MASK OUT NON-CYLINDER BITS 

4380 015746 Baeste (SP) ISHIFT 8 BITS OF CYL ADRES TO LO BYTE 
W381 Ols742 OOb316 (SP) 

u3a2 18744 OOB316 ase (BP) 

4383 91 OOO 318 Suag © «¢&P) 

u3e4 Ol 11283? . 001172 OVS © (5P)#,SREGY —-; UP. STACK 






:THIS ROUTINE TRANSFERS THE CONTENTS OF RKCS, RKER, RKDS 
4390 *RKDA TO SREGO, SREGI, SREG2, SREGS RESPECTIVELY. $REG’S 
433 a: ARE USED FOR TYPING OuT THERE CONTENTS AT THE TIME OF ERROR 
4393 015754 017737 163774 001162 GTYRG: MOV — @RKCS,$REGO GET RKC 
4394 Biesee 017737 163764 001164 MOV ORKER SREGH : RKER 
4395 915770 017737 163754 601166 - SRKDS, SREGE > — -RKDS 
4396 015776 617737 163760 001170 MOV JRKDA, SRE > __RKDA 
4 016004 000207 RTS PC EXIT FROM THIS ROUTINE 











; GETINF 
4400 *THIS ROUTINE SAVES THE CONTENTS OF RKCS IN SREGO 
4401 *RKER IN SREG1, RKDS IN SREG2. THEN IT BREAKS RKDA 
44 INTO DRIVE NO, CYLINDER # SURFACE AND SECTOR #. 
#403 *AND SAVES THEM IN SREGY, $REGS, SREG6, SREG7. 
4405 016006 004737 015754 
44 16012 010046 
44 16014 9101 
4408 16016 010246 
4409 Ol 012700 O01 
mit Bless Bigiee S070 
WHi2 Ole0se S4e7aS 177760 
4413 016036 010240 
4414 016040 006201 
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4415 Bieoes 006201 
441 1 1 
wi? Olcove 0201 
44) 1 1 
44 1 
W421 016000 05601 
st Dieoes 010102 
44, 16064 
44 1 
44 1 
44 16074 701 
44 161 101 
44 161 1 
44 161 12601 
4430 016106 912600 
mart 016116 000207 
44 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
444, 
waa 01611 Se 
4445 Bie125 0047, 
4446 016124 013737 
W447 016132 ed 
a 16140 737 
4449 016144 005704 
4450 016146 001407 
4451 016150 pt a7 36 
44 tages 0137 
4 l6l62 012637 
4454 016166 000207 





maACY11 


177776 


177400 


177770 


rn 


Stet=tat=: 
at 


888 
a oe 
dt ood 
ow 
feo 


fo 
fo & 
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SR mo 

ASR Rl 

my fhe 

V , 7 (RO) 

my the 

Bic 877g Re 

SWAB StsédR;d‘ 

BIC #177770,R1 

MOV Ri -(RO} 
(SP)+, 

MOV (SP)+'R1 

MOV (SP)+,RO 

RTS PC 

.SBTTL ERR2 


; ERR2 






sew ale S3 THE yo Pe 2 NUMBERS BETWEEN wey ee rep) SEEK 


;WAS DONE O INDICATES SEEK FROM *OUTADR’ 
:(R4)=1 horcates EK 19 -puTPOR R’. ON EXIT $REGO CONTAINS CYL # 
: FROM WIC cH SEEK INIT TATED SReGI CONTAINS CYL # TO WHICH SEEK WAS DONE 
001162 ERRe: T 
* aes T CYL8 IT 
bi ie2 nov Seco, 3 TecvL ORES 
JSR Sasa 85 GET CYL # FROM IT 
TST RY >GOING WHISH WAY? 
BEQ mS. ;*OUTADR’ TO 'INADR’, BRANCH 
MOV $REGO,-(SP) : EXCHANG ork TO GET’ 
001162 MOV $REG1, $REGO :CORRECT TO’ & FROM’ CYLS 
MOV (SP)+; SREGI 
1S: RTS PC ; RETURN 
: .SBTTL ERR 
THIS SUBROUTINE FINDS out THE CXL INOER NOS. ae HEEN WHICH THE SEEK 
bated ty srecD hi cy TCYETNOER 8 "bene THe HEADS SH Houl's Be artee 
nOICATES WHICH DIRECTION THE 
eb Sie fv vine “ Hua ie SPE 
ERR1: MOV RS, SREGO 
JSR PC;GCYL a0 GET CYL 
TST Ra sHis GOING IN OR OUT? 
BNE 
001164 MOV $eG0, SREGI 
SREGO 
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C.Pil ERR 
4471 
Sey BiB ga 
4473 OlSee% 000207 
4474 
4475 
44 
44 
4478 
a 
SF a RS 
aes 016234 942700 
Wage bless 996200 
oe ties 
m4 tee 006200 
Se tes tee 
4499 016256 012600 - 
4491 016260 000207 
4492 
4493 
4494 
4495 


Pea ERCosESE 


aararanarataty 

WOO NOUN £ Wr 
PprppprrrPperplrPrR RPP 
NaURRERA SE SREDRER DSR IER 


PRSEERE 
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001164 


001162 


165488 


163430 


162570 


JO? 
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1$: 


CLR 
RTS 


~SBTTL GCYL 


PC. 
$REG1 
PC 


sas ROUTINE EXTRACTS THE CYLINDER NO. FROM THE DISK. ADDRESS 


CONTAINED IN '$REGO’. AND THEN STORES IT BACK IN 
icy MOV RO, -(SP) ;PUSH RO ONTO STACK 
$REGO, RO 
BIC #160037, RO OUT DRY # BITS 8 
, SEC BITS IF PRESENT 

ASR RO 
ASR RO out CYL BITS RIGHT 
ASR RO BY S ‘ 
ASR RO. 
ASR RO 
MOV $REGO ;STORE CYL # IN $REGO 
MOV (SP)+, RO :POP RO FROM STACK 
RTS PC :EXIT 


-SBTTL ORV.RESET - DRIVE RESET ROUTI 
-SBTTL RESDON - WAIT FOR DRIVE RESET 


0 BE DONE 


;OR. 
imABR. PULITP PLP fe Tun ORES Ree! aR ne Rat THe Bre MOOR ee is IN 


iif THERE 
NORMAL 
DR.RST: CLR $SREGS 
MOV DRIVAD, 3RKDA 
MOV #15, aRKCS 
CON. RDY 
BR RES. DO+4 
RES.DO: CLR S$REGS 
1$: git #100, JRKDS 
+} 
MOV #-10,-(SP) 
INC (SP) 
BNE 4 
TST (SP)+ 
INC $REGS 
BNE 1$ 
BIT #SW13, JSWR 
BNE 2 
TYPMSG 
MSGle 
TYPMSG ,MSG7 
Y tSP). -(SP) 
SUB #2, (SP) 
TYPOC 
2s: RT] 





RT Pe HAGE RAE ADE § Y BS EET ERS ho 


; INITIALIZE THE COUNT 
;ORIVE RESET, GO 


;DID R/W/S RDY SET? 


;PUSH_ COUNT ON SP 
;COUNT IT DOW 


KO? 
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DZRKLC.P RESDON - WAIT FOR DRIVE TO BE DONE 


‘er CON.RESET - CONTROL RESET ROUTINE 
TTL CON.RDY - WAIT FOR CONTROL READY 


INE IS CALLED BY USING *CNT.RESET’ WHICH IS ACTUALLY 
Vb TROL THE LOWER TINE BELOH. TO PROVIDE 


RE M bee 
7 mie OF T "aout INE. IF Fea Yor 
T WITHIN A CERTAIN TIME AN ERROR MESSAGE 
nt ROY DIDN’T SET 


HS A AULT TS wR 
DECODER LOcATED A art MSTRAP’ 


Ye IS CED BY USING CNT.RDY WHICH IS A TRAP 
ENCODED. 


Rd uniTS FOR T ee 
ROL READY BIT TO SET AND WHEN IT 
NITHIN: a CERTAIN TIME CNTRL ROY DOES 
REPORTED. WAITING TIME IS 883 MS FOR 11/20 


;SET UP COUNT 


: MEMORY. 
000001 163 RST: #1, dRKC ; ISSUE _A CONTROL RESET 
177800 01176 6-200, $RECO 
;SKIP OVER CN.RDY 


001170 
163332 


001170 


CNTRL-RDY SET? 
EXIT 
Bf, LONG 


o1e444 } ; TYPE ASCIZ STRING 
ug PEGET OVER THE ASCIZ 
«15><12>/PC=s/ 


+ -(SP) 
ooo002 , (SP) 
360 TYPE PC IN THE NAIN PROGRAM, 
WHERE ERROR OCCURRED 
016470 &7$ t . TYPE ASCIZ STRING 
66$ ::GET OVER THE ASCIZ 
/ RKCS=/ 


163250 : ORKCS,-(SP) _;GET_RKCS 
: S85 TYPE IT 


;RETURN FROM THIS 
s ROUTINE TQ THE MAIN 
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aoen f 


KE 
wee 


4593 016510 005037 001 
4 i 4 ae 000100 163226 
1 37 001562 
45 1 130} 
4598 016532 020000 162490 
4599 stat oor, 
ee iol Sat 
16 218 
4604 1eeec 16 ; 
oy Le daa 
46 
4608 
4609 
4610 14324 104400 002114 
Si Gite fhe Se 
4613 016576 ao0207 
4614 
4615 
wie 
461 
4618 
me 
4621 
ups 
462 
4624 
4625 
4626 
4627 
4e58 
4630 016600 
ues 016600 104406 
4632 Q16602 032777 OOO400 162330 
aa 016610 0010S 
4635 016612 032777 O40000 162320 
2 016620 001047 
4638 Olebee OOO41E 
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16-SEP-76 16:29 PAGE 90 
READY 


CON.RDY - WAIT FOR CONTROL 


; PROGRAM 
-SBTTL TST.RWS - WAIT FOR R/W/S RDY 


THs ve Hal PRcana WAITS FOR ren RWS READY TO ET AND RETURNS 
IF IT DOES NOT SET 


T RROR I ‘ 
sHITHIN AL CERTAIN TIME 1040 "POR 11720." SEB" ms FOR 11/45 
TSTRWS: CLR TIMER 
18: IT — 
TIMER 

att 881713, aSWR 

BNE 2 

T ; ie 

TYPMSG G 

MOV tSP) -<SP) 

SUB , (SP) 

TYPOC 
2s: RTI 

SBTTL TEST ABORT ROUTINE 
;ABRT 
ABRT: TYP MSG3 

HOV8 $TSTNM, -(SP) 

RTS PC 


;COMMON SUBROUTINES & HANDLERS 
-SBTTL SCOPE HANDLER ROUTINE 
[sueetronrveatyccesesstenaterscrestesenveeresneeusyoseeemnrerece, 


tATHIS ROUTINE CONTROLS THE L QOPING OF SUBTESTS. I? WILL INCREMENT 
#AND LOAD T TEST T NUMBER ST STNM) INTO THE PTS=LAY REG. (DISPLAY<7:0>) 
*#AND LOAD THE E FLAG (SERFLG) NTO DISPLAY< 15:08) 
* ¥THE sutton SPT IONS PROVIDED BY THIS ROUTINE ARE: 
;xSHI4 LOOP ON TEST 
yenadet LOOP ON ERROR 
CALL 
3% SCOPE ;; SCOPE=IOT 
SSCOPE: 
KSWR ;;TEST FOR CHANGE IN SOFT-SHR 
BIT #SW8, ISWR SW8 USED TO SELECT 
BNE SOVER :A TEST? IF YES. SKIP OVER 
THE REST, U ARE LOOP ING ON 
18: BIT ¥BIT14, ISWR t LOOP ON’ PRESENT TEST? 
B V ‘YES IF ou Wi4=1 
-#8eeRSTART OF CODE FOR THE XOR TesTeRas 
$XTSTR: BR 6 F RUNNING ON THE “XOR" TESTER CHANGE 


MO? 
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3; THIS INSTRUCTION TO A “NOP” (NOP=24C) 
eee SHERAVED Han roe THOU TS OF THE ERROR VECTOR 


Hov Ce Btenevec Shwe RROR VECTOR 
S$: cH is t(SP)e | veree™ OUT 


SR BRESENY 
$:; 8888 OF FOR THE XOR" 'ieSTenwaats 
sg © Ge kn econ 


+ 3BR 
$3 BR oP ON: ON ERROR? 
BR IF NO 
7$: MOV R tiSeT LOOP ADDRESS TO LAST SCOPE 


33 ZERO THE ERROR FLAG 
; Save TEST NUMBERS 
ea Lae aponeee 


see aries APRON ERROR Net 
;;ONLY ALL 
SOVER: TNM, JDISPLAY 3 DISPLAY TEST NUMBE' 
Vv PAOR, (SP) Hae a ADDRESS 


5 5 RARER RARER EERE REAL RE REL EAE ELE AER ERE ER EEE EERE ELE EERREERE 


FEESEEEE 
SEteRTee eS | 


Tre 


wr 
= 


“eer 


COO rrncc 


ate 


466 


ise 
4659 
465 
4660 
sees 
4 

4564 
4665 
ws 


-SBTTL ERROR HANDLER ROUTINE 


; #SW1S=1 HALT ON ERROR 
invtett es TYPEOQUTS 


LOOP ON ERROR 
; #SW1e= CYCLE ON ERROR TO PREVIOS * SCOPE? ‘ STATEMENT 
;*GO_TO ERRTYP ON ERROR 
;*NOT FROM SYSMAC 
SERROR: 
7$: SERFLG ;SET THE ERROR FLAG 
7$ ;DON’T LET THE FLAG GO TO ZERO 
STSTNM, ADISPLAY 


#SW10, ISWR 
i te 
SELL 
(SP), SERRPC 
#SW2,aSWR .  ;DROP THE DRIVE? 
SW NOT SET 


SKIP 
SERTTL, #6 MORE THAN & ERRORS ON THIS DRIVE? 
6$ ;YES, DROP THE DRIVE 


162737 : SUB #2, SERRPC 
117737 162050 JSERRPC, SITEMB 





NO7 
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OZRKLC. E HANDLER ROUTINE 


020000 162062 


wo 
| ee] 


#SW!3, ISWR 


‘arene 


3$ 
#Skil2, ISWR 


$L (SP) 
#SWO9, ISWR 


4$ 
SLPERR, (SP) 


ag 


aon 


b= b= b= ~ Fp = p= foe 
_y 
w 
ey 


: 


-_ 


ee BURSERBSS SERRE 
8 
2B 


on 
ue 
=the 


paras 
-_ 

R 
ae 
an 

™~N 

Zam 


OOOO OOOVCOOVOO000 on 
ee 

[a 

~“ 

~ 

-_ 

2ZR 
Hee? - 4 oO 


DRVPTR, ~(SP) ;GET POINTER TO DRIVE # 
#377, a(SP)+ ;CLEAR THE DRIVE PRESENT FLAG 


mSGL4 
ORIVAD, -(SP) 


sans 


—-OOrwnwr- 


;GET THE DRIVE # 


2penoe 
Rees eraw 


;TYPE_IT OUT 
:; TYPE ASCIZ STRING 


017200 
;;GET OVER THE ASCIZ 


NINNNNNNNSNSNSNS OOS 
= 
Potato tet th 


Bee 


001523 VS ;DECRMNT # OF DRIVS PRESENT 
;RESTORE STACK 
015024 ;EXIT 


SNS 
man 
oo'rury 


001213 TYPE $C s CARRIAGE RETURN” & LINE FEED” 
*PICKUP THE ITEM INDEX 


;IF ITEM NUMBER IS ZERO, JUST 


; TYPE THE PC OF THE ERROR 
;SAVE SERRPC FOR TYPEOUT 

;ERROR ADDRESS 

;GO0 TYPE--OCTAL ASCIICALL DIGITS) 


ee ee ee a a bh b= fh Fb bb 0 he bs po he on oe 


0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 


001114 ; (ahmed 


001116 SERRPC, -(SP) 


SERRPC , -( SP) 


;GET OUT 
;ADJUST THE INDEX SO THAT IT WILL 
; WORK FOR THE ERROR TABLE 


RO 
062700 ;FORM TABLE POINTER 
012037 (RO)+,2 ;PICKUP “ERROR MESSAGE” POINTER 





- 


Pea e pitt 1-DZRKL-C 


oie 


> 0-0 <p <9 
(IG) 
a 
ortu 


aig a pais 


Sees 


QONIYIVIBWOHOV00D BONOVOVVOWOVVBO0O0V000 = 
Bo 


0-0 +0 + — ~~ 0 6 & -- 9 ~ bb — & op o—- > + 6-0 -~ 6 - 0 - »~ p< 


Pe F FG 


oe 
fo 
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001404 
pee 


jest 
001042 
203 
1412 
104408 


~“ 


BaaaRS 161614 


017336 
001213 
90cda2 
oooen2 


001213 


002406 
000000 


001116 


17440 


O17446 


O0i1i& 
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REQ 3$ SKIP TYP TYPEO T IF NOT me 
a a ae 
3$ BIT ey aSWR :DUMP OUT ALL HEADER” Poze 
BNE iY ANCH 
MOV Ae 4§ PICKUP “DATA HEADER” POINTER 
gO ss SAP Treegut i IF 0 
4g: .WORD 0 phe HE aoe ROH RTER GOES HERE 
TYPE $CRLF tw RARRT AGE RETURN” & LI Ne FEED" 
aod 2 RO FORM POINTER 19 TERMINA 
TST (RO) Ai THE TERMINATOR 0? 
BNE oe it H 
us #2,R0 If IS 0. REPOINT TO “DATA” 
af Ste OUT goats AS USUAL 
S$: MOV £RO),RO :PICKUP “DAT TABLE POINTER 
3NE 7$ °G0 TYPE THE ROAT 
$$: MOV (SP)+,R0 *RESTORE RO 
TYPE SCRLF :"CARRIAGE RETURN” 8 LINE FEED” 
- RTS PC ; RETURN 
MOV Q(RO)+,-(SP) SAVE a(RO)+ FOR TYPEOU 
TYPOC 60 a a3 aScriaLL DIGITS) 
TST CRO) :IS THERE ANOTHER NUMBER? 
SEQ &$ :BR IF NO 
are NKS2 
gs: JSR PC, acRO) +60 TO THE SPECIAL ERROR 
ATA HANDLING SUBROUTINE 
tNOTE THAT THIS ROUTINE IS 
‘THE ON gigi ATED aa, Me 
teen Ih hed ER BROR TABLE 
: (STARTING AT SERRTS) 
TYPE 
MSG? 
MOV SERAPC, -( SP) 
TYPOC 
6$ ;G0 BACK, TO THE EXIT POINT 
-FOR "ERRTYP 
10$: JSR PC, DMPREG 
BR 3 
;OMPREG 
“DUMPS OUT ALL RK REGISTERS WHEN SW 11 IS SET 
OMPREG: 
- TYPE 65S s;TYPE ASCIZ STRING - 


~ IiGET OVER THE ASCIZ : 
5658: .ASCIZ «15><la>v PC ‘'RKDS  RKER  RKCS RKNC RKBA RKDA KDB 


bas: mere 
MOV SERRPC, -(SP) 





AAR } 
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LERROR HANDLER ROUTI 4 
002406 TYPE ai 


001756 NOV BARDS R Ss RO 
: toy BRLOS RO 


2406 LNK 
1764 Dp RO, sRKOS 


(SP)+,RO0 
PE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
aE RT ae bare aba ee ee aE 


ee PS POSITIVE Ok NEGATIVE 8 sace Ona AINUS SYN MILL GE. TvPED 


ORE THE rAnep ares! - LEADING ZEROS WILL ALWAYS SE 
—e WITH SP 


INAR'Y NUMBER ON THE STACK 
ROUTINE 


Baeereree 

etatetetel 

SOR SaECD 
geE® 


=m—41—4 
4B- 


2 


S BC ‘Oterr 
"Sue BCD DIGIT BY 1 


~~ 
7" 


BEER R Ltt! 
pone: 
RAIROREROS 

2 Sez apie 
a 


8 
8 
“ia 


91 
Ol 
01 
Ql 
Ol 
Oi 
01 
A 
1 
Ol 
ft 
1 
Bt 
1 
Bt 
1 
91 
Ql 
Qi 
01 
Bt 
1 
01 
01 
O01 
QO} 
Ql 
01 


1) 


Rae “No 


YIN 


B 6$ 
00090: 177777 L(SP),-1(R3) 
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1 
DZRKLC. PLL ONVER MAL AND TYPE ROUTINE 
B: 


x 


Stal ne THE oe TYPING 


;;POP 
5 3BOB 


ruraronany 


aaa 


020026 3N 
O0000e cccdcy — t FADJUST THE STACK 
;;RETURN TO USER 


20-00000~-- 


9 
o-- 
o 


SOTBL: 


oon 
adit 


8 
ie 


10. 
SOBLK: .BLKW 
.SB8TTL TYPE ROUTINE 
SROUTINE 10 TYPE ASCI MESSAGE MESSAGE MUST TERMINATE WITH AD 
: #ROU TINE T Mes (trae fee MUST Tomrete WITH a QO BYTE. 
i ie ROUTINE hee al 2 NGRGER Lg ay ERS AF 
NS THE CHARACTER 


SNULL CONTA TQ BE AS 
SENOTER SFILLS CONTRINS THE NUMBER OF FILLER C QUIRED. 
;aNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


+ *CALL: 
#1) USING A TRAP INSTRUCTION 
° TYPE  ,MESADR s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


FIPPLG #318 TERS A TERMINAL? 
IF NO TERMINAL 


an 


—OO 
oo 
2 oO 


(RO)+, =(SP) 
4$ 


F IT ISN 
( (3+ “ $3 tTF TERMINATOR POP IT OFF THE STACK 
a (SP) :  AbJUST RETURN PC 


A 


ops 
g 


os 





E08 
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DZRKLC.P YPE ROUTINE 

4919 O20072 000002 RI! ; ;RETURN 

4 000011 4$: MPB BHT, (SP) ;;BRANCH IF <HT> 
000200 cee agRLE (SP) ;;BRANCH IF NOT <CRLF> 


(SP)+ + OPE ae ee Fury 


pres ae CHARAC 

C, STYPEC : rhs ae 
sriitc, (SP)e ft IT TIME & LER CHARS. ? 
$NULL , -(SP) OF Ae “NEEDED 


TO BE TYPED? 
THE NULL OFF OF STACK 


nan 


ay | = + oo ae 
SL6EFH KSEBERG EHS. 


Urn 


ia 


sets 
nN 


S8Bs2 
be ip bam dh) 


- 

we 
tm 
co] 


SERRE BERENS 


gs: MO " (SP) ssREPLACE Tag ITH SPACE 
; 0 he $ | BRANCH i NuT AT 
BNE 33 STOP 
(SP)+ He SPACE OFF TACK 
STYPEC: I ::WAIT NiNTIL PRINTER IS READY 


33 QAD CHAR TO BE TYPED INTO pk, REG. 
3315 STE a A CARRIAGE RETU 


| YESr=CLERR CHARACTER COUNT 


TYPEX 
1$: CMPB 3315 oe A LINE FEED? 
YPEX ;BRANCH_IF YES 
INCB ( : COUNT THE CHARACTER 
SCHARCNT: . WORD ;;CHARACTER COUNT STORAGE 
STYPEX: RTS 


> 
% 
~ 
~ 
8 
~ 
o 


Re 
SS 


as 


fo 
fo 


1 
Bes lee 
30 
se 


1 


ie 
Se 
06 


am 
= 


fo 


-SBTTL INTEGER MULTIPLY ROUTINE 
; ne ns ape ao, Siete eric 


TIPLER, -(SP) 
TIPL CAN, -(SP) 


; JSR DeSMULT 
; rc es IS ON THE STACK 
; PRODUCT 
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OZRKLC. INTEGER MULTIPLY ROU 


o00 


ate tetera 
eize 


seas 
a 
ees 


es. 


nee 


Sapna 


- 


Spas 


Re 


~ 
aA 


oOo 


fe oe So 


: 


Be 


: 


SESssesss 


0 0 0 0 0 
WONMUIL£Wwre- 


001134 000001 


iss SN USAISIS 


: 


+2 


Vv 


oO 
a 
a<< 


BHeSheehznenS 


» 
S 


SABARR ASS 


SOFT WARE 
: #ROUT INE 1S eNTEne 
+ ade 


#WHEN 
oo1140 $cKSuR: ¢ 
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g ~ 
e 


BRSSLRG se gans AZ 
™“N 
bd a 
Fe 
8 


o~ ~~ ID -~ 2D WU ~~ wD 


a 


-SBTTL TTY INPUT ROUTINE 
BE serra swayed meena ert canto 


psesuossndsousaususssssacssusssecensnseneeuensensananeneeneeees 


SWITCH BER EBON CHANGE 
RAP ROANOLER AND 


Pon ane In T 


RATING IN TY FLAG MODE. 
sSWRES, 


iis 


aSTKB, -(SP) 
ot (SP) 
SP)+ 
fy 
TOB, #1 
15$ 








FOS 
















L006 COUN 
TF EOS BEWENTECRSASE o 
iif 11104 TH PARITIAL PRODUCT AND 
ssHRS ALL BITS OF THE MULTIPLICAND BEEN DONE? 
et ee NEGATIVE? 


ime 
$i Yes- O68 RAK so 


LIPUT, THe PRoDUe AUeY ON THE STACK (NSB'S) 


#3 TACK INTO Re 
TACK INTO R1 
i Bop TACK INTO RO 







WILL 
N SOFTWARE SWITCH REGISTER TRAP CALL 
3315 THE SOFT-SWR SELECTED? 
F NO 





RE? 
*T WAIT AROUND 


: oF CHAR 
33;STR e F THE ASCII 
3318 A CONTROL G? 


i tare ret HUNNING TN AUTO-MODE? 
S}BRANCH IF YES 
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TTY _INPUT ROUTINE : 


021115 SCTSUR: TYPE ecnTLG pe Seg athe 
Baal sé : shee -<sp) 
9021133 ee! a roe net oT he DIGITS) 


ay} W 33 
| is . is reo ONTE 
160456 78: 


a 


i TP AN NOT TRY. AGAIN 


ISTKB, - (SP) PICK UP ¢ 
#tCl7?,(SP) 4} ;MAKE IT OBIT ASCII 


(7, as +i Banc Ai CONTROL <U? 
Pou i 3YES ete CONTROL -U 470) 


LEYS T’S TRY Yt AGAIN 


(pe) 815 IT A_<CR>? 
16§ F 
ives iF IT < FIRST CHAR? 


90008 : Add #6, SP ieee (Ue STAC STACK 
as 4 ry 

D011 Cc aaNTAG, gece oy «bp. INTERRUPTS? 
000100 #100, ISTKS RE-ENABLE No KBD INTERRUPTS 


* PC, STYPEC 
(SP), 


ANCH I 
$}STRIP-OFF ASCII 
i THIS THE FIRST CHAR 
H IF YES 
33N0, SHIFT PRE 
3 "CHAR OVER : MMAKE 
F Wl ONE. 


: KEEP COUNT OF CHAR 
N NEW CHAR 


Be 
tf 


mean Md Sh ee 
egg eer see ; 


s 


DoAKLe. 
$031 
Sak 
5035 
a 
: 
ae 
S 
= 
BS 
a 
Boe! 
2063 
5064 
Boe 
5057 
a 
e078 


000002 ‘ 
177776 ; SP), (SP) 
001212 : QUES 


solar 


s REFHREASLSSSAASAALAALALSAAASLARSERASRALRLALRARAAREAARALAARAARAATRARAE 
HATS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 





HOS 
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il Fy INPUT ROUTINE 


é 


;# RUCHR ; 1-04 T CHARACTER FROM THE TTY 
Y BIT 


CTRIBPED OFF 


=— 
gs 


eee 
euase oe 


00 
MIS 


Bae 
—~- 
——-O W— 


HARACTER 
. TS THERE 


—~e 
-_ 
o- 


BSE, 


4g: 
: el Neco ial SR Riise esta 
pATHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 


IN ;; INPUT A STRING FROM THE T 
RETURN HERE ROO Ss Oe FIRST ST AROETER YWILL BE ON THE 
> TERMINATOR WILL BE A BYTE OF ALL O°S 
(SP) SAVE R3 
Rae IN,R3 T ADDRESS 
SST TVINSe. .R3 : FER FULL? 
Bey ;;BR YE 


fo 
: 
ease 


CHARACTER FROM THE TTY 
(SP)+. (R3) R 
#177, (R3) 


S$ . 
$ LEAR THE BUFFER AND LOOP 
(R3), 9S : TECHO THE CHARACTER 


iS, (R3)+ 
es 


és 


STORE 
( i ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP} 2°SP) : FIRST ASCII CHARACTER ON IT 
eSTTYIN, 4(SP) 


oO000r- 


: 
: 
: 
08 
3 
ll 
le 
13 
14 
i 
i 
i 
20 
z 
23 
e4 
2s 
26 
2? 
28 
23 
30 
31 
32 
: 
3 
36 
37 
38 
39 
40 
41 
42 


+ B— b+ b+ b= B= b= & = b= b— 0 b= + OB Ob 


qSSRERUAZ eee ES Noeee 
a 


: RFoRace FOR ASCII CHAR. TO TYPE 
:  TERMINAT OR 


fororofororufururorufufuforororurororure 
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TTY INPUT ROUTINE 


STTYIN: .BLKB_ 8. ;RESERVE 8 SYTES FOR TTY INPUT 
a eR Avape aR 
«15> «12> 2 - 5 


-ASCIZ / NEW = / 


SSERES | 


+t 
vs) 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


REE R REE EEE REEL ER EERE ARERR EEE ERE E EEE REAR EE EEE EEE EEE 
:ATHIS ROUTINE ST AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


UTUNUNUNIUN UU 


+ - > > -0 ~0— 0 -- » = b= bo op 


OU e tote ee 


;READ_AN OCTAL NUMBER 
: LOW ORDER BITS ARE ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN SHIOCT 


3 ;PROVIDE SPACE FOR THE 
; INPUT NUMBER 


ul 
ve) 


pps 
BS 


beet raR DATA WORD 


5 eeRO THIS CHARACTER 
;1F ZERO GET OUT 


-~DwD- 


SRST SRSRGEE 
Bemg & 


$3 
33%4 
33*8 


;;STRIP THE ASCII JUNK 
3 ADD IN THIS DIGIT 


3k 
CLEAN T RUINATOR FROM STACK 
;;SAVE THE RESULT 


;;POP STACK INTO Re 
;;POP STACK INTO R 
3; POP STACK INTO R 


RTI * 3 3RETU 
SHIOCT: .WORD 0 . $}HIGH ORDER BITS GO HERE 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
PR blah tet 5 fet -tab baled tal badd ttl elle ++i t-te telat ot tht t-te dal 4 
sgTHES A UT IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A G-DIGIT 
isiyP YPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


t% SO MOV.—sNUM, =(SP) _ ;;NUMBER TO BE TYPED 
i TYPOS S:CALL FOR TYPEOUT 


Fi tect fect iter 


Spa 


tru 

—e 

or 
D—T—as 
GhHgrge 


RERRERRERERERERERRRBRRRR 
68% 


0 -* b= bb = Bb B= Bb Pb BP em be He ee 


FRSRES ENG 


: 
: 
: 
: 
: 
4 
5 
: 
: 
: 
5 
: 
: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
i 
1 
1 


BRR LGC SSHSURR LG Bsa Vora 2 cid Spe wari £ hoo 
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DZRKLC.P1! BINARY TO SCTAL CASEI) ARD TYPE 


-BYTE N piNat S . FOR NUMBER OF DIGITS TO TYPE 
BYTE: M 


7% 
aN S way bes LEADING ZEROS 

; i 2 ASTYPE LER LEADING ZEROS 
Een ie #$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

S#STYPOS OR S§TYPOC 


OV NUM, -(SP) ; R TO 
TYPON ett’ FOR T burn 


BES 


;* 
5210. : #51 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
eels :* = OMOV NUM, -(SP) ;;NUMBER TO BE TYPED 
253 3 TYPOC CALL FOR TYPEOUT 
5215 21 017646 000000 STYPOS: MOV a(SP),-(SP) s ;PICKUP_ THE 
5216 1 ll 021471 MOVE I(5P);SOFILL ;;LOAD ZERO FILL Ht TCH 
521 Oe! bees? 4 MOVB ~ (SP)+.S$OMODE+1 ;:NUMBER OF DI TO TYPE 
5218 Leb 16 R00 #2, (SH) + ;ADJUST SE OANA ss 
Ee Herat 1471 $TYPOC: #1, $0FIL 3;SET THE ZERO FILL SWITC 

i a ll van 147 nove #6; +1 ::SET FOR SIX(6) DIGITS 
eee 1306 112727 OO000S 021470 STYPON: MOVS #3, SOCNT ::SET THE ITERATION COUNT 
Soe 1318 1 MOV R3,-(SP) 3 3SAVE RG 
B55e OStse8 Brose NOY. RS’ 2CSP) OVE Re 
52 Oe See il ” 021473 NOvE SORODE FA GET THe NUMBER OF DIGITS TO TYPE 
255 OS1358 bes704 ABS ae, RY jsSURTRACT_IT FOR WAX. ALLOMED 
2553 Ostaag i 1a384 pete HOVE a L gE eye le : RO FILL SUITCH 
253) 85} 3dq hie70e (3 NOY sor ib Re He CKUP HE'S NPUT NEnBE ~ 
2535 Osisee Oneios iss we Re ieee ht ote 
2533 fstseg BbRite Pe: 33 f 
5235 el 006105 23: ROL RS : FORM THe DIGIT 
c ES O21 1 ROL RS 

Et Oe 1 ROL RS 

33 13ee ; 3$ ROL Ra’ GET LSB OF THIS DIGIT 
2533 551358 sixth 021472 : eee SOMODE t TYPE THIS pier? 
BSus feta7e aNevos 177770 Bre Sa0270. Ra see RID OF JUNK 
524 pet ir8 Boraus i . ri GET 0 
S244 621404 005704 TST RY + TF BPRESS THIS 0? 
S245 021406 001403 BEQ S$ *:BR IF YES 
peub. e119 4S: INC RY s3DONTT SUPPRESS ANYMORE 0°S 

02141 posses p00060 BIS #’0,R3 *:MAKE THIS DIGIT ASCII 

S248 “021416 052703 o00040 S$: BIS #’ 'R3 ?:MAKE ASCII IF NOT ALREADY 
5249 Oe see 110337 021466 MOVB 3,8 SAVE FOR TYPING 
5250 Oel4e6 104400 021466 TYPE 8 ::G0 TYPE THIS DIGIT 
525 Gell 37 021470 73: DECB © S$0CNT >:COUNT BY 
252 14 347 BGT 2g :BR IF MORE TO DO 
5253 el 002402 BLT 6$ ::BR IF DO 
E254 O21442 o0S5204 INC RY :: INSURE LAST DIGIT ISN’T A BLANK 


KO8 


bier f 1 DIG! 
Hs I FOR TYP Tee ROUTINE 
ee Rea 
: NUMBER OF Bt 16 Aree TO TYPE 


-SBTTL TYPDSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 


; TYPOS 

;ROU INE FOR TYPING OUT DECIMAL NUMBERS, LEADING 0°S ARE SUPPRESSED 
;THE NUMBER IS LEFT JUSTIFIED. NOTE THE 16 BIT BINARY NUMBER SHOULD 

BE POSITIVE (BIT 15= 0). 

:CALL: MOV NUMBER, - (SP) ;PUT_BINARY NUMBER ON STACK 


| : YPDSS :GO TYPE DECIMAL 
000004 021534 TYPDES: MOV 4(SP),1$ ;GET THE NUMBE 

746 021534 MO #1$,-{SP) “PUT PTR 
021674 PC, sa$0820 : VERT 81 
021540 PC, a#SSUPRS :GO STRING 


000002 000004 a) vit is 
000002 MOV . 


P) ,e(SP 


1$: ; °0,0 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
HEHEHE HEHE HEHEHE HHH HHH GEESE HE 
jATHIS ROUTINE ie USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


MADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
PC ¢, JUSSUPRE 


SSUPRS: RO,-(SP) s RO 
o00004 MOV 4(SP) RO He THE POINTER 
1S: Is (RO) : : TERMINATEOR? 


Q es 33 F YES 
000060 #'0, (RO)+ HIS AN ASCII “OQ” ? 
2g 1$ : HBR 4 YES 


RO : ea - 
021570 MOV RO, 3$ Save TYPING 
tH AScIZ POINTER GOES HERE 


SnB5ee 
WSaee 


SEBRERRRRE 
B 
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TRING SUPPRESS LEADING ZEROS 


ny {)3; (5) RES Re FRE STACK 


-SSTTL SAVE AND RESTORE RO-RS ROUTINES 


=¢ MACYL1 27(732) 
TYPE NUMERICAL ASCIZ S 


ttotoe 


0 0-2 = 0 be 
WONIWU £ UU 


s% SFRLASSSSESEAASRRELALAPALALALRARSLLAAAASLA SRA LAALLLAALALALALEL ALS 
:&SAVE RO-RS 
s#CALL: 


. 
. 
: | 
a 
BE 
Be 


;# G 
5 HUPON TURN FROM S$SAVREG THE STACK WILL LOOK LIKE: 


*#TOP---( +16) 
;# +2---(418) 
3# +4---RS 
3# +6---R4 


+—+-+4-4 
Fetetatss 
AKRRX 


ieee BBV VSS 
SISRAPBRZS 
BARRVVSSSE 


epee 
rrz 
2 


uw 
‘+ 
fu 
RURRAESAZ 
CeCe. A LAA 


forurufu forurufororororo 


RTI 
;*RESTORE RO-RS 
;*CALL: 


i SREG 
$RESREG: 
MOV 


aeaee 


BROS 


fororurururorurufororare 


PERSP ORE 


NOOOON000000 
+++ e+e+ ee 


ee ee ee ee ee te 
DwDwD-z 
BAD Lawororore 


GESSESSES 


“NN 
mo 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5p RRRRARR EEE EERE RA ER EEE ERR EERE EE EEE REE ER AREER ELAR ERR RERE 
;#THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
23 bie NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 





P 
.* & 
wi 
-e— 
bb 


on 
oz 


Od000000— 


“INN 
pop 
o£rm 


239 


~ 
# 


ese MPREEReB SS asa aee 
RR RRRRER RR RRERERRRERRRRRRS 


z 
IsPeeN eRe 


: 
: 
tie 


: ted 
os 


“DZRKL-C 
DOUBLE LENGTH 


ade ena 


S 


g 


a ey 


MACY11 27(732) 


000012 021772 
20 


16-SEP-76 1 


BINARY TO DECIMAL ASCI 


eas 


Biss 


SDECVL: 


SSSeSSee2 


- BLKB 


:29 PAGE 104 
CONVERT ROUTINE 


AA DD 


go> ghng at gua gtga 


Uv 
Qo 


12. 


08 


;;POINTER TO LOW WORD OF BINARY NUMBER 
;; THE FIRST ADDRESS OF ASCIZ 
331S ON THE STACK — 


IS 


TERS . 
is, +: OF ae SrRING ON STACK 


;SET UP TO DO 10 CONVERSIONS 
: ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
;; SUBTRACT TEN POWER 

;BR IF TEN POWER TO LARGE 
13000 1 TO PARTIAL 
;;RESTORE SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
i Save tt PARTIAL TO ASCII 


oR 
TERMINA 
{| RESTORE REGISTERS 
; RETURN 


;;RESERVE STORAGE FOR ASCIZ STRING 
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DZRKLC.P11 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


-SBTTL TRAP DECODER 


; LTATe ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
:ATH ROUTINE WILL PICKUP THE LOWE 


iso Se ea Mie en a Ree AE EO THe staat} Ne, RODRESS 


TO IAAT 
ier GEY TERE ADDRESS 
3, RIGHT SYTE OF TRAP 
ASL RO j #POSITION FOR INDEXING 
016000 022112 STRPAD(RO) ,RO s INDEX TO TABLE 
002: RO He 
.SBTTL TRAP TABLE 


; #THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION. 


érrPaD: “aes, 
020036 Ty ;;CALLSTYPE © TRAP#O(104400) TTY TYPEOUT ROUTINE 
SE TYPOC ::CALL=TYPOC  TRAP+i(104401) TYPE OCTAL NUMBER ( 
1246 :2CALL=TYPOS  TRAP+2( 104402) 
: CALL TRAP+3( 104403) TYPE OCTAL NUMBER (AS 
ita S:CALL=TYPDS | TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
s;CALL=GTSWR  TRAP+S(10440S) GET SOFT-SWR SETTING 
s CALL =CKSUR TRAP+6(104408) TEST FOR CHANGE IN SOFT-SWR 
;}CALL=RDCHR © TRAP+7( 104407) T 
C= TRAP+11( 104411) RE 
tt Carl =SAVREG RO-RS 
SICALL=RESREG © TRAP+13( 104413) RESTORE Ro-RS UROUTINE 
; ;CALL=CON. RESET TRAP+14( 104414) CONTROL RESET ROUTINE 
: ;CALL=DRV.RESET TRAP+15( 104415) DRIVE RESET ROUTINE 
s;CALL=MESAGE  TRAP+16(104416) MESSAGE HANDLER 
015700 § s;CALL=TYPMSG  TRAP+17(104417) MESSAGE TYPEOUT ROUTINE 
016412 ;;CALL=CON.RDY TRAP+20( 1044202 WAIT FOR CONTROL READY 
016510 TSTRWS ;;CALL=TST.RWS TRAP+21(10442I) TEST R/W/S RDY SET 


016306 RES.DO ;;CALL=RESDON TRAP+22(104422) DRIVE RESET DONE? 













ER TNT eel te 


0 0 b= 0 0 0 0 2 
WONWULSUITUE-O 


eryernert 
atid 


anu 
sys 





t 

wi 

mw 
“No 


au 
an 
tu 


wn 
wn 
tm 





MAINO: 
DSRKLC. 


92 
022334 
Cee342 


aia 


013706 


-OOO000000 


z 
8 


Q2e2326 
000340 


1$672e 


022332 
Q22234 


047520 


L-< MACYIL E7(732) 
TRAP TABLE 


021474 


000024 
000026 


o00te4 


000924 


900024 
000026 


042527 








16-SEP-76 
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TYPOES ;;CALL=TYPOSS TRAP+23(104423) TYPE DECIMAL, SUPRES LOG 0°S 


0 





.SBTTL POWER DOWN AND UP ROUTINES 







s ELALAKAAAARALLARARERAAAAELEAL ASS ALHALALASALAALAALSLELS SSG SALSLE 










jPOUER DOWN ROUT i 
gPuRD as LLUP DePWRVEC 5 ,SET FOR FAST uP 
: By DePWRVEC+E {ARTO i 
MOV teat it ho ON STACK : 
MOV RI: -(5P) ::PUSH R1 ON STACK 
MOV Re. -(SP) : US ON STACK 
0 PUSH RY ON § 
:;PUSH RS ON STACK 
MOV ISWR, - (SP) ::PUSH aSWR ON STACK 
MOV SP, SSAVRE ::SAVE SP 
MOV SSPRRUP  SePURVEC :;SET UP VECTOR aes 
BR “2 ;;HANG UP A 






= SEARERESERSASLSSAASKASASLSSAEFELALALSSLASASRELSSAESLFRASSRFLLLLSE 
Powe UP ROUTINE 









SeuRUP: MOV SSILLUP, JePWRVEC ;;SET_FOR FAST DOWN 
MOV SSAVRS, SP T 
CLR SSAVRE t MAIT LOOP FOR THE TTY 
18: INC  . $SAVRE ;;WAIT FOR THE INC 
BNE 1$ WORD 
MOV (SP)+, ISWR : }POP STACK INTO 3SuR 
MOV (5P)+,R5 *:POP STACK INTO RS 
MOV (SP)+: ::POP STACK INTO RY 
MOV (SP)+: *:POP STACK INTO R3 
MOV (SP)+° 3;POP STACK INTO Re 
MOV (SP)+'R TACK INTO RI 
MOV (5P)+'RO =f PQP STACK INTO RO 
MOV SSPURONCa : joer UP THE POWER DOWN VECTOR 
MOV $340, SaPaRVEC SS: jee 
TYPE + ue POWER FAILURE 
SPWRMG: .WORD  S$POWER POWER. Fart NE SSAGE POINTER 
MOV (PC)+, (SP) :RESTAR 
SPWRAD: gifoRO PWRFL ESTAR RODRESS” 
SILLUP: HALT is THE POWER UP SEQUENCE WAS STARTED 
BR -2 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: 0 ' PUT THE SP HERE 
SPOWER: .ASCIZ ¢15><12>"POWER™ 
EVEN 





















de2e344 
022344 
022350 


022370 
02370 


t 
“vi 5 


= 


104400 . 022352 
000407 


104410 
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; 
; 
; 
; 
4 
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GRAM 


ON ENTERING 


‘ commannss 


ve READ CHECK 
; TERMINATE EVERY COMMAND WITH <CR>. 
. 3 SWORDS” 
5 LOCAL 


YLINDER 


: SBE ASKED 


. IN CASE OF SEEK FUNCTION, SEEK i pore GE THEEN A SET OF CYLINDERS GIVEN 
:8Y THE USER 


YLINDER 
REGISTER 


;IN CASE OF A WRITE FUNCTION IF SW O IS SET TO 1 THE PROGRAM WILL ASK 
THE uses 


; THE _USER 


:NOTE THAT THE 
;BOUNDS OF THE SYSTEM. 


;IN CASE OF A WRITE CHECK FUNCTION IF SWO IS SET TO 1 
sWILL = THE USER on, THe PATTERN TO BE WRITE CHECKED: 


: THE USER 


FUNBEG: 
TYPE 65$ s3TYPE ASCIZ STRING 
4g jSe T OVER THE ASCIZ 
jess: "ASCIZ ¢15><12>/FUNCTION 
ROLIN 


LOCATIONS “IOBUFO” ONWARDS ARE RESERVED FOR DATA BUFFERS. YOU CAN USE 
hee LOGATIONS FOR DOING DATA TRANSFERS IN 
:USE AN a Mi BUFFER FOR DATA TRANSFER AS LONG AS IT DOES NOT OVERLAY 


HE SAME 


T I PROVIDING 
:@ VERY GOOD SCOPE rio IF YOU WANT TO GIVE & NEW FUNCTION PUT SW 3 U 
THe QUEST (F “BE ASKED AND YOU CAN STAR 







.SBTTL FUNCTION SELECTION PROGRAM 


THE pune 10N pence 10H PROGRAM 
eg a FIRST QUESTION ASKED IS 
Poy ire IN ONE OF THE FOLLOWING COMMANDS. 





" = CONT 
ae: 

SK = SEEK 
WR - WRITE 


Ne FURTHER QUESTIONS (RKBA? 
) WILL BE RSKED. TyPE IN THE BUS BODRESS (oeTaL O18 poo ress 

AND NUMBER S 70 BE T RANSEERRED tr A EXISTENT 
OR an NON-EX STENT Bec oR IS T IN, TE Taheerton’ (RROR?) WILL 







(CYL1? Cvie") TO (CYLg?, CYL27) TYPE IN THE OCTAL 
NUMBERS SEEK IS TO BE DONE. SET SWITCH 
BITS <15-13) 5D THE DRIVE & ON WHICH SEEK IS TO BE DONE. 























FOR THE PATTERN TO BE WRITTEN: 

PATRN?12S2Se<CR> 

SHOULD TYPE IN THE (OCTAL) PATTERN HE WANTS TO WRITE. 

R OF WORDS TRANSFERRED SHOULD SE WITHIN THE 
1_ THE PROGRAM 
R SHOULD TYPE IN IN THE (OCTAL) PATTERN TO SE WRITE CHECKED. 


N THIS PROGRAM (OR YOU_CAN 


FUNCTION IS PERFORMED AGAIN AND AGAIN, THUS 


T ALL OVER 


ILL~BE ASK OU AGAIN. 
NG_A FUNCTION AN oon OCCURS, IT IS REPOTRED , WITH 


:R2 CONTAINS RKCS CONTENTS 
?R3 CONTAINS RKDA CONTENTS 
=R4.RS CONTAIN THE CYLINDER #S BETWEEN 
‘WHICH SEEK IS 10 BE DONE. 
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DERKLE-PL FUNCTION SELEETEON PROGRAN 
S585 012600 MoV (SP)+,R0 
022374 (RO)+°RI 
000127 on 
( 


000122 0),a°R 
1§ 


BNE ' 
3 PC, CHK sCHECK SW T? 
B5a508 Bids Re. oops de 
NXTOA He 
#3 
nxt 
(RO), #°C 


FUNBEG 
pe CHKSWO sCHECK SW O SET? 
84007, R2 

NXTDA 


5 


: 3 
5$90 
a 
5$93 
5394 
ae 
aS 
5598 
5599 
5800 
5691 
5602 
5603 
S804 
$805 
5606 
5607 
5608 
5609 


#7 ,Re 
NxTBA 


Br Bry 
Bay 


8 
N oh 


nm 
000 IOPUul £ ITU 


B 


or 
fw 
oe 
“ 


8 


2858 
ASRS 


000001 


ecrest 
: 


fe 


000123 
000113 
900011 


—8n8 
Tee 


6$: 
922610 ;;TYPE ASCIZ STR 
6$ ;;GET OVER A 
33678: . /CYL1? # 
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DZRKLC.P11 FUNCTION SELECTION PROGRAM 


022620 668: 
004737 023204 ie oa 
MOV 


1 »R4 


: 


7$: 
022636 3; TYPE ASCIZ STRING 
98: :;GET OVER THE ASCIZ 
bag? 


156256 WR :GET DRIVE # FROM SW REG<15-13> 
017777 ;CLR UNWANTED te 
RO Rd :SET DRIVE # IN DSK ADRES 


FRE 


o 


023204 


Ha ate 


f 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


5660 
ce 
S664 
S665 
5666 
5667 
5668 
5669 
5670 


s:TYPE ASCIZ STRING | 
;;GET OVER THE ASCIZ © 


PUR ReReRREREER ISS 


;;TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


o 
we 














Pil 


atari 

BO% 5 
foruforure 

Hy 


SESS 
ae 


0 0 0 bb po be Be 
WONWU CITE 





SISSY 
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104411 
Bee 
1 


104414 


= Sel See 
SNS GaSe. esas Saeze 


a 


= 


= 


as Cees 





002000 


000011 


001774 


156640 
56634 


000312 


000002 
oc0001 


023254 
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PROGRAM 





a 


EXECI: 
EXEC: 


33: 
1S66S2 2S: 


156646 
1$: 


156614 4§: 
CHSW: 


INPT: 


15: 


155674 CHKSWO: 


FUNERR: 


-ASCIZ /@WORDS? / 


RDOCT 
ie ee INDX4 
BR Ee : 
CON. RESET 
ne 1,R2 
eR 
BEQ 3$ 
ES 
FS} 
- MOV RS,R3 
MOV INDX2, IRKBA 
1 foes 
MOV R2, ARKCS 
-, aRKCS 
¢ a1, Re 
BEQ 4 
RESDON 
a IT Fineras , ARKCS 
By \#t pepe: our 
JMP —— 
MOV #EXEC1, SLPERR 
MOV 8EXEC!’ $LPADR 
ISR PC, GTHRG 
ORESET- 
get ee CHSW 
e RDOCT 
MOV (SP)+,RO 
CMP RO, sai2 
a | 
ASL RO 
ASL RO 
a8 
Q R 
#2, (SP) 
“RTS PC 
T #SW0, ISWR 
i 
TYPE 65S 
BR 64$ 


CLR EROR, CONTROL RESET 
kK FUNCTION 


SEEK, INSERT THE RIGHT 
Sapa Tene SS 


;WAIT FOR CNTROL RDY 

;1F IT’S CON RESET FUNCTION 

;DONT WAIT FOR R/W/S RDY 

:R/W/S ROY? 

feo 

s TERMINATE THIS FUNCTION OR REPEAT? 


; TERMINATE 
;SET UP FOR LUPING 


;REPORT ERROR 
;CLR ERROR 


NO ae A PATTERN GIVEN BY USER? 


STRIN 


bes Asciz§ RIN 


;;GET OVER 


G09 
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3658: .ASCIZ /PATRN?/ 


5753 

734 4 bis: 

; ree oor (SP) +, IOBUF I SAVE THE PATTERN 
83650 001774 y a haut ls PNoxe : ™ 


00000 : ;SKIP NXT 2 INST ON RETURN 


uw 


416 j :SAVE DRIVE ADRR 
 BUEEG SeRe ie FU 
001526 ;MAKE EVEN 
020000 001526 1S: ) “MAKE ODD 
001526 156404 2$: ;DRIVE ADDR 
000011 156370 MOV | ;DRIVE SEEK 


«ROY 
002416 156366 ji ;OTHER DRIVE 


000100 156344 gir 4 pee IN ew 
25 


(RS)+ 
00:S26 : MOV ,ORIV t PESTORE ORO0R 


;START AT DRO alae 3 
sTABLE OF AVAIL ORIVES > 

THIS DRIVE HERE? » * 

:COMPLEMENT HERE? 

:SEE IF F MODEL 


:SET - FOR F 
:BOTH DRIVES 


;NEXT PAIR OF DRIVES 
a DRIVAD :NEXT ACT 8 ADDR 
41, RO . SCH CKED ALL 


ay 
a 
ae 
ce ee 
Be 
oe 


;ERROR MESSAGES 
ent EMI: -ASCIZ /CNTRL ROY DIDON’T SET AFTR SEEK/ 
051440 
052106 
045505 


O47440 EM2: -ASCIZ /SIN ON SEEK/ 
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DoRKLe Pi FUNCTION SELECTION PROGRAM : 
5809 020116 
10 Qe 000 


ll 
/DRE ON SEEK/ 


7*ERR’ ON SEEK/ 


0-+ 0 + 0-0 bo - 
DIU £ 


/DRU ON SEEK, PUT DRY ON *LOAD’ & °RUN’/ 


“R/W/S RDY NOT SET AFTER SEEK” 


“SIN ON WRT FMT/ 


7*ERR’ ON DOING WRITE FMT/ 


“SIN ON RD/FNT” 


SERESES 
IRKES 8 
R 22 


/*ERR’ ON READ FMT/ 


5S 
2 
= 
$832 
5833 
5838 
$839 
5840 
5841 
S842 
S843 
S844 
= 

S847 
5848 


H 
: 
28 


sees Grete 


“WRONG HORS FROM °SEC#’/ 


2 
nah 


ZEROR ON IMPLIED SEEK FROM *CYLA’ TO *CYLB*/ 


pata ats 


PRPR RET 


a 
0 


a 
Bree 
Sse 


e J 
WwW 
-_ 


" “READ WRONG HORS FROM *CYLB’ ABOVE/ 
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OGRAM 


) 


4B 


FUNCTION 


Pil 


C=11-DZRKL-C 


KLE. 


OZRKL 


NAT 


7READ WRONG, IST WRD FROM SEC 0, *CYLB’ (ON IMPLIED SEEK FROM "CYLA’)/ 


“READ WRONG HORS ON IMPLIED SEEK FROM "CYLA* TO *CYLB’/ 


~ 
Y 
@ . 
w 
- 4 
ao 
2 . ‘ 
S Fr in 
[mJ oe 
oll Q ray 
= = 
[* ) oO Oo 
wee f 
5 - c. PS 2 
E 3 = us 
of -d = 
4 = 4 > & 
3 5 e 2 
: a Oo 4 ta) Q 
- a fa J a © 
w = a Qa 
a you 5 z 5.5 
S Bem 4 § 
ira rr] wo 4! o os 
~ = ™~ ~ “ ~ 
™N N ™N N ™N NS N ™ 
+ +: 7 = os a: ae 
« « « 2 °..8°>€ 
o F 3 
= Y y 
ta uJ ta) 


% 


t 28 aii UNF te on 


aa is Ua Ua bd 
2 aD 4H) SE 
2 "a CE SS 


Sia Gotiacatoen Caccee Csceitea bases Bae 


Fee Cece aca AR ec a 


ot 
Dietze MS17: 
7440 EMel: 
O44S17 043516 
OS344O O44Se2 O42Se4 
020 
pis 
Beueae i Baosos poolwy 


024470 3 ie Geo116 O47117 EM2e2: 
O2e4SS0 O40S04 O4052e4% O42440 EMeS: 


024476 4204 
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DZRKLC 


: 
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Pll 


020122 


a 


ey 
—TU 
WwrVUoa 


fore fo 2 
gees 


Site 
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EM26: .ASCIZ /HE ON WRT CHK/ 


EM27: .ASCIZ /WRT CHK EROR/ 
EM30: .ASCIZ 


;DATA HEADERS 


/EROR/ 


DH1: -ASCIZ 7 PC RKCS RKER RKDS RKDA/ 


/SEEK # SEEKING ERRORS/ 


DH?: -ASCIZ 7 PC RKCS RKER RKDS RKDA  CYL/ 


DH11: .ASCIZI” PC RKCS RKER RKDS RKDA: OR CYL 


DH13: .ASCIZ /SEC® HOR RCVD/ 















= - 
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41 l DH14: .ASCIZ 7 PC CYLA CYLB RKER RKDS TRY#/ 





De0040 1 DHIE: .ASCIZ 7 PC CYLA CYLB EXPCT RECYD TRY#/ 
S52 cso cane ousen cen0wn 
025234 
ee 
ease bess08 pe0103 DH17: .ASCIZ 7 PC CYLB EXPCT RECVD/ 
S 02531 1114 042440 
$998 025316 050130 052103 
cegg 051040 O4150S O4e2l26 
6000 025332 000 
pons 025333 040 oS0040 020103 ODHe4Y .ASCIZ/ PC TRY# RKCS RKER RKDS RKDA: DR CYL SUR SEC’ 
6003 025340 d20040 051124 
6004 025346 pole 051040 
6005 925354 fel 1 ah res 
SP ies Bee Bau le 
6008 025376 l23 051040 ell 
code Gesiod GSe10) Dietn Geblee 
6011 hae pe puaa feo 
rate 025426 oe 020040 d20040 
Pata 0eS434 O42523 000103 
6015 047527 pated 3 Dxes .ASCIZ /WORD@ EXPCT RECVD CYL SUR SEC’ 
6018 OeS446 O4e440 0501 103 
6017 - 051040 Sos 
6018 OeS462 OD4el 020040 041440 
6019 025470 O4613 eae 3 s 
1 0514 04150 


;ERROR DATA POINTERS 


OeSS06 - EVEN 


001116 O01162 001164 ODT: . WORD SERRPC, SREGO, SREG! , SREG2, SREG3, 0 -. 
001166 001170 000000 


001116 001162 001164 O17: .WORD SERRPC,$REGO,$REG1, SREG2, $REG3, SREGY,O 
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: 001170 901172 


Obie tte OTl1:  .WORD SERRPC, $REGO, SREGI , SREG2, SREGY, SREGS, SREGE, SREG7,0 
re 


001162 O01164 OT17: .WORD SERRPC,SREGO,SREG1,SREG2,0 
000000 


bo1202 0011g2 OT24: WORD SERRPC, $REG1O, SREGO, SREGI, SREG2, SREGH, SREGS, SREGE, SREG7,0 
Biss | b01s00 
;DATA BUFFERS 


;I0BUFO AND IOBUF! ARE 

;TWO - 768 WORDS LONG BUFFERS 
;NORMALLY USED FOR DATA TRANSFERS 
;T0 AND FROM DISK 


pseagt tt *? 


“J 
o 
a 


6033 
$034 
i: 
5040 
ese 
boy 
ty 
EDN? 
= 
1 
e083 
ie 
6058 
6059 
6060 
6061 
6062 
$063 
£064 
6065 
£065 





elt Sos PSN SE EEA Thal’ Pt 


ese 43012 3401 3552 46198 
3083 32b1# 326c% 3e7b# 3e78% 32818 3330 4289 


mR 
¥ 


3434 


O44 4 04 0-4 4 4 4 04 4 4 4 4 4 4 4 4 4 0 0 0 


SIFARLoV-o 


sasenianealt 


2 


AAA tt 44 4 4 4 HHH HH ts 
oo 0 + > - 
W£Wwu-oO 
Ww 
~— 
<x 
® 


Gre 


Ieaiz 


4777 4808 4813 


Sens 


e824  2829% 
e978 =s_«3103% 
4249 


Eo 


5 oul 
—o” 
<= 


60568 


RRESESS 
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at 


CNP 14404 
CN.RDY O16412 


sire. 1s 


Ww 


DH 
DH 
DH 
DH 
DH 


=F ats # 4 
on aed 
SS eye 
NO £uWJe— 
in mE 
a -- 
Rm BRS 
gee! ae ate Ae a ae 


SS8Ssseees 85 
FEVSTLVS 


oe OO 
WNW) 


tf 
t~ 





MAINDEC-L1-DZRKL-C____MACYL1_27(732) 18-SEP-76 16:29 PAGE 120 
DZRKLC. PL! CROSS REFERENCE TABLE -- USER SYMBOLS 


DRVPTR 001524 me Ti 
DRV.RE= 104415 833 196 , ee egso 4068275 SGCi‘i‘iSSS CSA 2783 


DSKADR 1730 
DSWR 


ud 
au 


yy 
= CUM ~ Je - JO) 


o~o 


2800 2801# ec8ii# 2812% 2815  3083% 30% 3302 


1136 = L143——siaSO—ss1230s—«éike37?—s—‘«éi'2B®—(<ésé«éGV 
60368 ee 


<b bp 


“1194 1208 60328 


fururufusfrue 
£UWMrmrMVua 


ESCO E 


1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
i 
1 
1 
t 
1 
t 
1 
1 


2533# 2775*# 3072% 3138 31402 
2534% e7s4# 8 3073# 3155*# 31583 
3059# 3503# 


w 
Stns etn 


tw 
ws 
a 


464 1% 


Ule—- ee th hers oad 
rhs Mo pa GW 
wo 
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DZRKLC.P1l CROSS REFERENCE TABLE -- USER SYMBOLS 
en } .. eso4e 


3206 


43938 


26238: 3196# 
3293# 3610 3623 
32 267 


3066# 
318S* 3816% 


8 


egee 
2-59 
Bhs 


S4698 


Rarnicncnna fr 
EO BEANO FOE 
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344 
$771% 


-“ 
TU 
DEK B fu 
7 i 


4 Byese 


ao 
oy ot 


Baers 


N& 


Hs 
2 


eeo4s 
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DIRKLC.PL1 CROSS REFERENCE TABLE -- USER SYMBOLS 


Ome Re ne Me I ce Mae Ma 


77 
314 ee ME: 49914 a wie ¢ - opaes on86 4 Bos 4999+ ciehs oe 
Be : 


3 1 1 3 44 56 * 
76 aoe) 25 + ES S740# S741# S74ee 8 S743% S744 S782e 5783 $785 
( 5790# re 7 gs 

R1 =*.900001 ® 1623% 1625#  1676% 


4017% 


